DATA  ACQUISITION  AND  REDUCTION  OF 
HIGH   RESOLUTION  GaM1<1A-RAY  SPECTRA 


By 
DAVID  BALDWIN  COTTRELL 


A  DISSERTATION   PRESENTED   TO   THE   GRADUATE   COUNCIL  OF 
THE   UNIVERSITY  OF   FLORIDA    IN   PARTIAL 
FULFILLMENT  OF    THE    REQUIREMENTS   FOR.  TH_E   DEGREE   OF 
DOCTOR  OF    PHILOSOPHY 


UNIVERSITY  OF   FLORIDA 
1973 


TO  MY  WIFE 
FOR  HER  PATIENCE 
AND  ENCOURAGEMENT 


AC  KNOWLE  DGE  MENTS 

The  author  wishes  to  express  his  gratitude  to  tlie  many  people 
who  contributed  to  the  success  of  this  project.   First  and  foreaost 
is  his  research  director,  Dr.  Stuart  P.  Cram,  vjhose  continued  guid- 
ance, encouragement,  and  enthusiastic  support  made  this  work  possible. 
The  author  is  also  grateful  to  the  other  members  of  his  commitcee, 
Dr.  Roger  G.  Bates,  Dr.  James  D.  Winefordner,  Dr.  William  H.  Ellis, 
and  Dr.  Frank  G.  Martin,  for  their  help  and  cooperation  during  the 
course  of  this  study.   Finally,  the  helpful  discussions  with  fellov; 
members  of  the  research  group  are  gratefully  acknowledged. 

Special  thanks  go  to  Jack  E.  Leitner  for  his  unselfish  coopera- 
tion and  time  during  the  early  months  of  this  vjork.   His  many  helpful 
discussions  concerning  computer  operation  contributed  greatly  to  the 
success  of  this  project. 

The  design  of  the  electronic  components  used  in  this  work  V7as 
contributed  by  Mr.  Bob  Dugan  and  his  able  staff  in  the  electronics 
lab  of  the  Chemistry  Department. 

The  author  wishes  to  acknowledge  the  financial  support  v;hich  he 
has  received.  This   research  was  supported  in  part  by  NSF  Research 
Grant  No.  G?-lkl5k,    and  in  part  by  a  Traineeship  from  the  National 
Science  Foundation. 

The  author's  deep  appreciation  goes  to  Mrs.  Edna  Roberts,  his 
typist,  for  her  expert  work. 

Finally,  the  author  wishes  to  express  his  gratitude  to  his 


113. 


parents,  Mr.  and  Mrs.  R.  E.  Cottrell,  for  their  faith  and  encourage- 
ment, and  to  his  wife,  Li?:,  for  her  pa  fiance  and  understanding  through- 
out the  duration  of  this  v.'ork. 


IV 


TABLE  OF  CONTENTS 

Page 

ACKNOVJLEDGEIENTS iii 

LIST  OF  TABLES    vii 

LIST  OF  FIGU;IES   viii 

ABSTRACT xiv 

INTRODUCTION  i 

Research  Objectives  i 

Historical  Review  2 

THEORETICAL   3 

Data  Smoothing   g 

Peak  Detection   ^    ^  9 

Peak  Quantitation  m 

Curve  Fitting ig 

Method  of  Standard  Addition  27 

EXPERU-ENTAL jq 

Hardware   zx 

Interface ^5 

Timing  System  55 

Software   59 

Data  Acquisition   ^4-0 

Data  Printout I4.6 

Display ^5 

Data  Smoothing 53 

V 


Page 

Peak  Detection r. 

Preparation  of  FOCAL  Compatible  Data  ^5 

RESULTS  AND  DISCUSSION   75 

System  Evaluation yi^ 

Data  Smoothing 88 

Peak  Detection 9)1 

Curve  Fitting 109 

Peak  Areas iglj. 

Liver  Analysis 198 

APPENDICES 227 

APPENDIX  I.   CORE  RESIDENT  SOra.'ARE 228 

APPENDIX  11.   FOCAL  PROGRAMS 287 

1.  Photopeak  Fitting  Routine   288 

2.  Baseline  Fitting  Routine  291 

5.   Calculation  of  the  Total  Fitted  Curve   29U 

k.      Numerical  Integration  by  the  Trapszoid  Method   .  .  296 

5.   Linear  Least  Squares  298 

BIBLIOGP^APHY 500 

BIOGRAPHICAL  SKETCH 305 


VI 


LIST  OF  TABLES 

TABLE  Page 

I        EXPERIMENTAL  CONDITIONS   FOR  THE    SAMl^LE    SPECTRi\ 76 

II        COMBINED   RESULTS    OF   THE  AUTOMATED   PEAK  SEARCHES 96 

III        NUMBER  OF   PEAKS   FOUND   BY  THE  AUTOM\TED   PEAK  SEARCHES    ...  102 

IV        PERCENT  CH/iNGE    IN   THE    RESIDUAL   OF    THE   CURVE 

FITTING   FUNCTION 115 

V        DESCRIPTION  OF    PEAKS    SELECTED  FOR  CURVE   FITTING      116 

VI        INITIAL  AND  FINAL   VALUES   FROM  THE   CURVE 

FITTING   CALCULATIONS       117 

VII        INITIAL  AND  FINAL  VxVLUES   FROM  THE  CURVE 

FITTING  CALCULATIONS       120 

VIII        CURVE   FITTING  RESULTS      196 

IX        CURVE   FITTING    RESULTS       197 

X        CURVE  FITTING   RESULTS      199 

XI        SIGNIFICANT   PEAKS    IN  AN    IRRADIATED  LIVER  SiVMPLE 205 

XII        EXPERIMENTAL  CONDITIONS   FOR  THE   LIVER  ANALYSIS    207 

XIII        RESULTS   OF    THE   LIVER  ANALYSIS 209 

XIV        RESULTS   OF   THE   LIVER  ANALYSIS 210 

XV        EXPERIMENTAL  AND  NATIONP.L  BUREAU  OF   STANDARDS 
RESULTS   OF    THE  ANALYSIS   OF    STANDARD   REFERENCE 

MATERIAL   1577    (BOVINE   LIVER)       225 


vii 


LIST  OF  FIGURES 
Figure  Page 

1.  Two  possible  peak  shapes  in  a  digital,  gaimna- 

ray  spectrum 11 

2.  Quantitative  peak  areas  from  three  different 

methods    17 

3.  Physical  interpretations  of  the  eight  parameters 

in  a  photopeak  fitting  function  22 

k.        Block  diagram  of  the  experimental  system  ^1 

5.  Interface  between  an  analog  to  digital  converter 

and  a  PDP-8/L  computer 55 

6.  Timing  system  for  accurate  and  precise  timing 

control  of  the  data  acquisition  software.   A 

push  button  switch  is  engaged  from  time  T   to 

T  .   The  timing  pulse  is  generated  from   time 

T^  to  T  and  corresponds  in  length  to  the  time 
B+    0  ^ 

preset  on  the  thumbwheel  switch  57 

7.  Flowchart  of  the  data  acquisition  software k2 

8.  Timing  relations  between  the  computer  and 

analog  to  digital  converter  ^5 

9.  Flowchart  of  the  data  printout  software kB 

10.  Sample  page  from  the  computer  printout  of 

a  stored  spectrum  50 

11.  Flowchart  of  the  display  software 52 

12.  Flowchart  of  the  data  smoothing  software 5k 

15.   Flowchart  of  the  peak  detection  (method  one) 


software 


57 


Ik.        Flowchart  of  the  software  which  tests  for  peak 
validity  and  permanently  stores  valid  peak 
locations  and  boundaries   59 


viii 


Figure  Page 

15.  Flowchart  of  the  peak  detection  (method  two) 

software •   63 

16.  Flowchart  of  the  software  which  determines 

the  first  differences  and  prints  the 

firicil  results  of  the  peak  searches •    65 

17.  Flowchart  of  the  software  which  .calculates  the 

average  height  of  the  noise  over  -lO  channels   ...    68 

18.  Flowchart  of  the  software  which  calculates  and 

prints  the  peak  areas  by  the  total  peak 

area  and  Wasson  methods .    71 

19.  Flowchart  of  the  software  which  converts   the 

integer  data  to  floating  point  and  stores  the 

results  in  core  locations  accessable  by  the 

FOCAL  subroutine  FNEW 73 

20.  Plot  of  spectrun  6,  attenuated  by  a  factor  of 

(x  8) .   The  full  energy  range  of  the  spectrum 

is  0-1.378  MeV  (0.62li-  KeV/channel)   •    78 

21.  Plot  of  spectrum  6,  unattenua ted.   The  full 

energy  range  of  the  spectrum  is  0-1.378 

MeV  (0.621+  KeV/channel) 80 

22.  Plot  of  spectrum  6,  attenuated  by  a  factor  of 

(x  1/2) .   The  full  energy  range  of  the 

spectrum  is  0-1.378  MeV  (0.62^+  KeV/channel)  ....    82 

23-   Plot  of  channel  number  vs.  photopeak  energy 
for  the  full  energy  range  used  in  the 
research  (data  obtained  from  spectrum  6) 84 

2k.  Plot  of  channel  number  vs.  photopeak  energy 
for  the  low  energy  region  (data  obtained 
from  spectrum  10) •    ^7 

25.  Plot  of  the  resolution  of  the  experimental 

system  vs.  photopeak  energy  for  the  full 

energy  range  used  in  the  research  (data 

obtained  from  all  eleven  sample  spectra)   "0 

26.  Effects   of   the    statistical   scatter   on   the 

total  peak  area,  resulting  in  too  large 
(peak  A)  or  toe  small  (peak  B)  a  quanti- 
tative area ^2 


ix 


Figure  ^age 

27.  Plot  of  spectrum  9,  unattenuated.   The  full 

energy  range  of  the  spectrum  is  0-965  KeV 

(0.U71  KeV/channel)  ^^ 

28.  Plot  of  spectrum  7,  unattenuated.   The  full 

energy  range  of  the  rpectrura  is  0--5J57  KeV 

(0.163  KeV/channel) ■'"^^ 

29.  Plot  of  spectrum  11,  attenuated  by  a  factor 

of  (x  1/2) .   The  full  energy  range  of  the 

spectrum  is  U77-955  KeV  (0.255  KeV/channel ^^^ 

50.  Plot  of  spectrum  k,    unattenuated.   The  full 

energy  range  of  the  spectrum  is  0.1.578  MeV 

iO.eZk   KeV/channel)  

51.  Plot  of  the  percent  change  in  the  residual 

sum  of  squares  vs.  the  number  of  iterations 

performed  in  the  curve  fitting  process   II5 

52.  Raw  data  and  fitted  curve  (offset)  for  the 

1115.51  KeV  Zn  -  65  peak  taken  from 

spec  trum  2 

55.    Raw  data  and  fitted  curve  (offset)  for  the 

88lv.5  KeV  Ag  -  llOm  peak  taken  frorn  ^^^ 

spectrum  1   

5!+.    Raw  data  and  fitted  curve  (offset)  for  the 
88k. b   KeV  Ag  -  110m  peak  taken  from 
spectrum  9   

55.    Raw  data  and  fitted  curve  (offset)  for  the 
957.5  KeV  Ag  -  110m  peak  taken  from 
spectrum  1   

36.    Raw  data  and  fitted  curve  (offset)  for  the 
957.5  KeV  Ag  -  110m  peak  taken  from 
spectrum  9   

57.  Raw  data  and  fitted  curve  (offset)  for  the 

88ii.5  KeV  Ag-llOm  peak  taken  from 

spectrum  11  

58.  Raw  data  and  fitted  curve  (offset)  for  the 

520. 08  KeV  Cr  -  51  peak  taken  from 

spectrum  7   

59.  Raw   data   and   fitted  curve    (offset)    for    the 

1099.27   KeV  Fe   -   59  peak   taken   from 

spectrum  5      

X 


Figure  p^^^ 

kO.        Raw   data   and   fitted  curve    (offset)    for 
the    937.3  KeV  Ag   -    llOm  peak   taken 
from  spectrum  h -^^g 

kl.        Raw   data   and   fitted  curve    (offset)  for 
the   88i|.5   KeV  Ag   -    llOm  peak   taken 
from  spectrum  k i|,-i 

k2.        Raw   data   and   fitted  curve    (offset)    for 
the    121.13  KeV  Se   -    75   peak    taken 
from  spectrum   7 j^j^t 

k^.        Raw   data   and   fitted  curve    (offset)    for 
the    511   KeV  annihilation  peak   taken 
from  spectrum  8 ]^]|5 

kk.        Raw  data   and   fitted  curve    (offset)    for 
the    817.9  KeV  Ag   -    llOm  peak   taken 
from  spectrum   1 jl^y 

k5.        Raw   data   and   fitted  curve    (offset)    for 
the    817.9  KeV  Ag   -    llQm  peak    taken 
from  spectrum  9 ii^g 

hS.        Raw   data   and   fitted  curve    (offset)    for 
the    Ui|6.2  KeV  Ag   -    110m  peak   taken 
from  spectrum   1 j^5]^ 

k7.        Raw   data   and   fitted  curve    (offset)    for 
the    i+00.6i^  KeV  Se    -    75   peak   taken 
from  spectrum   10        2^5:5 

iv8.        Raw   data   and   fitted  curve    (offset)    for    the 
817.9  KeV  Ag   -    llQm  peak   taken   from 
spectrum  k       ]^53 

k9.        Raw   data   and   fitted  curve    (offset)    for    the 
Ui;6.2  KeV  Ag   -    llOm  peak   taken   from 
spectrum   10 i57 

50.  Raw   data   and   fitted  curve    (offset)    for    the 

620.1  KeV  Ag   -    llOm  peak   taken   from 

spectrum  9        i^q 

51.  Raw   data   and   fitted  curve    (offset)    for   the 

96,75  KeV  Se    -    75   peak   taken   from 

spectrum  7        ]^g2 

52.  Raw   data   and   fitted  curve    (offset)    for    the 

96.73  KeV  Se    -    75   peak   taken   from 

spectrum   10 j^gh 

xi 


Figure  Page 

55.    Raw  data  and  fitted  curve  (offset)  for  the 
817.9  KeV  Ag  -  llOra  peak  taken  from 
spectrum  11 167 

54.  Raw  data  and  fitted  curve  (offset)  for  the 

620.1  KeV  Ag  -  llOm  peak  taken  from 

spectrum  11 159 

55.  Raw  data  and  fitted  curve  (offset)  for  the 

303.89  KeV  Se  -  75  peak  taken  from 

spectrum  7 171 

56.  Raw  data  and  fitted  curve  (offset)  for  the 

505.89  KeV  Se  -  75  peak  taken  from 

spectrum  10 173 

57.  Raw  data  and  fitted  curve  (offset)  for  the 

1175.2  KeV  Co  -  60  peak  taken  from 

spectrum  6    175 

58.  Raw  data  and  fitted  curve  (offset)  for  the 

1175.2  KeV  Co  -  60  peak  taken  from 

spectrum  5    177 

59.  Raw  data  and  fitted  curve  (offset)  for  the 

7A4.2  KeV  Ag  -  110m  peak  taken  from 

spectrum  11 179 

60.  Raw  data  and  fitted  curve  (offset)  for  the 

657.6  KeV  Ag  -  110m  peak  taken  from 

spectrum  6    1°^ 

61.  Raw  data  and  fitted  curve  (offset)  for  the 

1175.2  KeV  Co  -  60  peak  taken  from 

spectrum  5    '' 

62.  Raw   data   and   fitted  curve    (offset)    for    the 

1175.2  KeV  Co   -    60   peak   taken   from 

spectrum  5.        The   data  was   smoothed  before 

the   fit  was   obtained 185 

63.  Raw   data   and   fitted  curve    (offset)    for    the 

657.6  KeV  Ag   -    110m  peak   taken   from 

spectrum   8.      The    data  was    smoothed  before 

the    fit  was   obtained 188 

64.  Raw   data   and   fitted  curve    (offset)    for    the 

884.5   KeV  Ag   -    llOm  peak   taken   from 

spectrum  6.      The   data   was    smoothed  before 

the    fit  was    obtained.       190 


Xll 


Figure  Page 

65.   Ravj  data  and  fitted  curve  (offset)  for  the 
677.5  and  686.8  KeV  Ag  -  110m  peaks  taken 
from  spectrum  1 I93 

65.    Plot  of  an  irradiated  liver  spectrum, 

unattenuated.   The  full  energy  range  of  the 

spectrum  is  2.583  MeV  (1.164  KeV/channel)   ....    202 

67.  Plot  of  an  irradiated  liver  spectrum, 

attenuated  by  a  factor  of  (x  0.208).   The 

full  energy  range  of  the  spectrum  is 

2.333  MeV  (1.164  KeV/channel) 20^^ 

68.  Plot  of  the  total  peak  area  (open  circles) 

and  Wasson  area  (closed  circles)  vs.  the 

amount  of  standard  added  to  the  liver  samples 

for  the  analysis  of  chlorine.   The  peak  areas 

were  obtained  from  the  1.645  MeV  CI  -  38  peak   .  .     212 

69.  Plot  of  the  total  peak  area  (open  circles) 

and  Wasson  area  (closed  circles)  vs.  the 

amount  of  standard  added  to  the  liver  samples 

for  the  analysis  of  chlorine.   The  peak  areas 

were  obtained  from  the  2.168  MeV  CI  -  58  peak   .  .     21l^ 

70.  Plot  of  the  total  peak  area  (open  circles)  and 

Wasson  area  (closed  circles)  vs.  the  amount 

of  standard  added  to  the  liver  samples  for 

the  analysis  of  manganese.   The  peak  areas 

were  obtained  from  the  0.847  MeV  Mn  -  56  peak   .   .    216 

71.  Plot  of  the  total  peak  area  (open  circles)  and 

Wasson  area  (closed  circles)  vs.  the  amount 

of  standard  added  to  the  liver  samples  for  the 

analysis  of  manganese.   The  peak  areas  were 

obtained  from  the  1.811  MeV  Mn  -  56  peak 218 

72.  Plot  of  the  total  peak  area  (open  circles)  and 

Wasson  area  (closed  circles)  vs.  the  amount  of 

standard  added  to  the  liver  samples  for  the 

analysis  of  potassium.   The  peak  areas  were 

obtained  from  the  1.525  MeV  K  -  42  peak 220 

75.    Plot  of  the  total  peak  area  (open  circles)  and 

VJasson  area  (closed  circles)  vs.  the  amount  of 

standard  added  to  the  liver  samples  for  the 

analysis  of  sodium.   The  peak  areas  were 

obtained  from  the  I.568  MeV  Na  -  24  peak 222 


xiii 


Abstract  of  Dissertation  Presented  to  the  Graduate  Council 

of  the  University  of  Florida  in  Partial  Fulfill^ient  of  the 

Requirements  for  the  Degree  of  Doctor  of  Philosophy 

DATA  ACQUISITION  AND  REDUCTION  OF 
HIGH  RESOLUTION  GAbZ'ii.-SJiY   3PECTM 

By 

David  Baldwin  Cottrell 

March,  1975 

Chairman:   Dr.  Stuart  P.  Cram 
Major  Department:   Chemistry 

A  versatile,  mini-computer  based  laboratory  system  was  developed 
for  the  collection  and  reduction  of  high  resolution  gamma-ray  spectra. 
A  dedicated  mini-computer  served  as  both  a  control  and  memory  for  the 
data  acquisition,  and  a  central  processing  unit  for  the  automated 
data  reduction. 

An  interface  and  timing  system  were  designed  and  constructed  to 
allow  computer  control  of  the  data  acquisition.   A  complete  software 
package  was  written  to  perform  all  aspects  of  the  data  acquisition  and 
reduction.   The  application  of  the  total  analytical  system  to  the 
analysis  of  a  complex  biological  material  was  studied. 

A  new  peak  detection  algorithm,  sensitive  to  small  signal-to-noise 
peaks,  was  developed  to  automatically  search  the  digital  data  and  de- 
termine the  locations  and  boundaries  of  photopeaks  in  a  gamma-ray  spec- 
tra.  A  technique  was  devised  to  perform  curve  fitting  by  the  method  of 
nonlinear  least  squares  on  a  mini-computer.   A  new  function,  which  de- 
fines the  shape  of  a  photopeak  in  a  Ge(Li)  spectrum,  was  developed  and 
tested.   Photopeak  areas  calculated  from,  the  fitted  functions  were 
compared  to  the  peak  areas  determined  by  conventional  methods  directly 
from  the  digital  data. 
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INTRODUCTION 

The  principles  of  activation  analysis,  which  have  been  reviewed  by 
Lynn  (1),  were  first  introduced  by  Hevesy  and  Levi  (2,5)  in  1936  and 
Seaborg  and  Livingood  (4)  in  1938.   Little  was  done  with  this  technique, 
however,  until  the  dawn  of  the  nuclear  age,  following  World  War  II, 
brought  about  an  increasing  availability  of  nuclear  reactors.   Since  then 
the  development  of  sophisticated  radiation  detectors  and  additional 
sources  of  nuclear  particles  has  contributed  to  the  remarkable  growth  of 
this  technique.   The  sensitivity  and  accuracy  of  activation  analysis 
have  made  it  an  extremely  useful  method  of  trace  element  determination 
in  almost  every  scientific  field. 

Neutron  activation  analysis  has  proven  to  be  an  extremely  sensitive 
analytical  technique  for  most  elements  in  a  diversity  of  matrices,  from 
distilled  water  to  biological  tissues.   The  development  of  high  resolu- 
tion, lithium-drifted  germanium  detectors  has  made  possible  the  instru- 
mental analysis  of  complex  samples  by  gamma-ray  spectrometry.   The 
digital  computer  has  proven  essential  to  the  rapid,  accurate  reduction 
of  the  large  volume  of  data  required  by  this  technique. 

Research  Objectives 

This  research  was  directed  toward  the  development  of  a  versatile, 
mini-computer  based  laboratory  system  for  the  collection  and  reduction 
of  high  resolution  gamma-ray  spectra.   A  real  time  system  for  collecting 


2 
data   under    the   control   of   a   dedicated  mini-computer  was   developed   to  main- 
tain  the   high  resolution  of    the   detector   and   the    integrity  of    the   pulse- 
height.      New  concepts    in   direct   data   reduction  by   the    laboratory  computer 
were   developed  and  compared   to  existing  methods,   with  special  emphasis 
placed  upon   small   signal-to-noise   peaks    in   the   pulse-height   spectrum 
from  Ge(Li)    detectors.        The   application   of   such  a   system   to   the   analysis 
of  biological  materials  was   examined. 

Historical   Review 

Early  researchers    in  neutron  activation  analysis   could  measure   only 
total  activity  and  were    forced    to  use   some    form  of  chemical   separation 
to   isolate   the   radioactive  element  of   interest.      Development  of   the  early 
pulse-height   discriminators   and   the   sodium  iodide   scintillation  detector, 
however,    contributed   to    the    increasing  popularity  of   instrumental  activa- 
tion analysis   by  gamma-ray   spectrometry.      Connally  and  Leboeuf    (5)    were 
among   the   first   to   demonstrate    the   value   of    this   new  analytical    tech- 
nique.     Morrison  and  Cosgrove    (6,7)    demonstrated   the   usefulness   of   gamma- 
ray  spectrometry   in   the    determination  of    trace    impurities    in  a   bulk  com- 
ponent,   and   several   researchers   proved   the   practicality   of   totally   instru- 
mental neutron  activation  analysis    (8-10).      With   the   development  of    the 
Ge(Li)    detector    (11),    high  resolution  gamma-ray   spectrometry   is    today   the 
accepted  method  of   data  collection   in  neutron  activation  analysis. 

By   the   early   sixties  many   scientists   realized   that    the  method  of 
data   reduction  was   equally  as    important  as    that   of   data   collection.      The 
volume   of   data   required   in  gamma-ray   spectrometry  was  more    than  could  be 
handled  by  manual  reduction.      Covell    (12)    attempted   to   solve    this   problem 


by  developing  a  new,  simplified  method  of  data  reduction.   His  new 
technique  used  only  the  data  from  a  fixed  number  of  channels  immediately 
to  the  left  and  right  of  the  peak  center.   Most  laboratories,  however, 
realized  that  a  better  solution  was  to  take  advantage  of  the  computa- 
tional power  and  speed  of  the  digital  computer. 

Guinn  and  Lasch  (15)  noted  that  comparison  of  photopeak  areas  with 
those  in  standard  spectra  was  still  the  easiest  and  most  practical  quan- 
titative approach.   Computer  routines  were  written  to  obtain  this  infor- 
mation by  fitting  a  mathematical  function  to  the  experimental  data  (li|, 
15),  or  by  simply  analyzing  the  raw  digital  data  (16-13).   Often,  how- 
ever, the  limited  resolution  of  the  Nal(Tl)  scintillation  detector 
failed  to  produce  resolved  photopeaks.   Heath  (19)  discussed  the  value 
of  the  computer  for  the  analysis  of  these  complicated  spectra. 

Lee  (20)  reported  on  the  instrumental  technique  of  complement  sub- 
traction.  The  theory  of  spectrum  stripping  was  quickly  expanded  and 
computerized  (13,21-25) •   Standard  spectra  of  pure  elements  were  collec- 
ted and  stored  in  the  computer  memory.   Sequential  subtraction  of  the 
spectra  corresponding  to  the  highest  energy  photopeak  was  then  performed 
until  only  the  background  remained. 

This  method  was  often  unsuccessful  for  low  energy  peaks  uncovered 
after  several  subtractions.  A  more  complex  approach,  based  on  the 
theory  of  least  squares,  sought  to  overcome  this  problem  (9,24-28).  An 
assumption  was  made  that  contributions  from  the  various  elements  in  any 
channel  were  independent  and  additive.  By  the  method  of  least  squares, 
standard  spectra  were  combined  until  the  best  fit  to  the  entire  experi- 
mental spectrum  was  obtained.   Another  approach,  based  on  the  same 
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assumptions,  attempted  to  solve  a  set  of  simultaneous  linear  equations 
using  data  from  only  selected  channels  of  the  standard  and  experimental 
spectra  (29-52). 

Other  special  methods  were  reported  (53,54),  but  the  above  were  by 
far  the  most  comnionly  used  methods  for  the  analysis  of  complex  scintil- 
lation gamma-ray  spectra.   Because  of  resolution  problems,  most  of  these 
computerized  techniques  required  some  form  of  qualitative  input  before 
accurate  quantitative  calculations  could  be  performed. 

The  development  of  the  high  resolution,  semiconductor  Ge(Li)  de- 
tector (35)  caused  a  rapid  change  in  the  field  of  activation  analysis. 
The  superior  resolution  required  bigger  and  better  pulse-height  analyzers 
and  resulted  in  a  tremendous  increase  in  the  volume  of  digital  data  to 
be  reduced.   It  also  produced  a  distinctly  different  form  of  gamma-ray 
spectra,  with  photopeaks  more  numerous  but  now  resolved  and  available 
for  direct  quantitation.   Prussin  and  co-workers  (56,57)  quickly  demon- 
strated the  value  of  this  new  detector  for  instrumental  analysis  of 
complex  mixtures.   The  fully  resolved  photopeaks  easily  furnished  both 
qualitative  and  quantitative  information. 

The  increased  resolution  also  increased  the  problem  of  statistical 
scatter  of  the  digital  data.   Several  methods  were  proposed  to  smooth  the 
spectra,  to  remove  the  undesired  scatter  without  destroying  the  analyt- 
ical information  lying  underneath  (58-40).  A  least  squares  technique 
particularly  suited  for  computer  adaptation  was  reported  by  Savitsky  and 
Golay  (41).   Yule  (16,42)  successfully  applied  this  technique  to  gamma - 
ray  spectra  and  determined  that  the  number  of  points  in  the  smoothing 
should  be  as  large  as  possible  without  exceeding  the  full  width  at  half 
maximum  of  the  photopeaks.   Tominaga  and  co-workers  (43)  studied  the 
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effects  of  smoothing  on  peak  area  determinations  and  reported  that  smoothing 

was  often  unnecessary  for  curve  fitting  methods  but  beneficial  for  other 
quantitative  techniques.   Yule  (44)  showed  that  one  smoothing  by  the 
Savitsky  and  Golay  method  did  not  distort  the  analytical  information  con- 
tained in  the  spectra,  as  long  as  the  correct  smoothing  interval  was  used. 

Several  methods  were  developed  for  automatically  locating  peaks  in  a 
Ge(Li)  gamma-ray  spectrum.   Connelly  and  Black  (45,46)  described  the 
technique  of  cross-correlation  for  both  peak  detection  and  area  deter- 
mination.  Dooley  and  co-workers  (47)  looked  for  significant  count  in- 
creases in  adjacent  channel  groups  to  indicate  the  presence  of  a  peak. 
Gunnink  and  Niday  (48)  examined  the  changes  in  slope  between  data  points. 
Ralston  and  Wilcox  (49)  developed  a  special  method  for  defining  the  base- 
line from  which  to  begin  and  end  peak  integration. 

An  automated  peak  detection  method  particularly  suitable  for  effi- 
cient software  execution  involved  the  numerical  approximation  of  the 
derivatives  of  the  digital  spectrum.   Morrey  (50)  described  in  detail  the 
utilization  of  the  second,  third,  and  fourth  derivatives  to  locate  peaks. 
Yule  (16,51)  applied  the  convolution  technique  of  Savitsky  and  Golay  (41) 
to  obtain  the  smoothed  derivatives  in  one  rapid,  efficient,  computational 
operation.   He  demonstrated  the  use  of  both  the  first  derivative  alone 
(51),  and  of  higher  derivatives  (52),  to  locate  peaks.   Barnes  (53)  re- 
ported a  slightly  different   form  of  calculating  the  smoothed  derivatives, 
but  obtained  essentially  the  same  results  as  the  Savitsky  and  Golay  method. 

Several  authors  (54-56)  chose  to  use  the  second  differences,  similar 
to  the  second  derivatives,  to  locate  peaks.   Mills  (54)  pointed  out  that 
the  smoothed  spectra  gave  better  estimates  of  the  initial  parameters 
for  peak  fitting.   Subtraction  of  adjacent  data  points  then  gave  a  good 
approximation  of  the  smoothed  derivative. 
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Once  tha  photopeaks  were  located,  some  measure  of  their  area  was 

necessary  to  obtain  quantitative  information  about  the  contributing 
element.   The  area  could  be  calculated  either  directly  from  the  digital 
data  or  from  Che  integration  of  an  analytical  function  which  was  fitted 
to  the  peak. 

Several  methods  were  developed  to  obtain  quantitative  information 
directly  from  the  digital  data.   The  most  commonly  used  technique  was 
the  total  peak  area  (TPA)  method,  successfully  employed  by  several 
workers  (33i 38,31,57) .   This  method  assumed  a  linear  baseline  beneath 
the  peak  and  subtracted  a  trapezoid  background  correction  from  the  summed 
total  area  to  obtain  the  quantitative  area. 

The  previously  mentioned  method  of  Covell  (12)  was  also  utilized 
(^3) .   In  this  method  a  linear  baseline  was  again  assumed,  but  only  the 
data  from  a  fixed  number  of  channels  immediately  to  the  left  and  right 
of  the  peak  center  were  used  in  the  area  computation.   Sterlinski  (58,59) 
modified  Covell' s  method  to  give  increasingly  greater  weight  to  those 
channels  nearer  to  the  peak  center. 

Quittner  (60,61)  proposed  a  method  for  estimating  the  actual  base- 
line contribution  to  the  total  peak  area.   He  first  fitted  a  second  or 
third  degree  polynomial  to  several  channels  on  either  side  of  the  peak. 
He  then  constructed  a  baseline  beneath  the  peak  in  such  a  way  that,  at 
the  peak  boundaries,  it  had  the  same  magnitudes  and  slopes  as  the  fitted 
polynomials . 

Baedecker  (62)  described  a  modification  of  the  TPA  method  suggested 
by  Wasson  in  a  private  communication.   This  technique  combined  the  prin- 
ciples of  the  TPA  and  Covell  methods  in  that  it  constructed  the  same 
baseline  as  the  TPA  method  but  only  used  data  from  a  fixed  number  of 
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channels  immediately  surrounding  the  peak,  center.   The  author  then  ex- 
amined the  precision  obtainable  by  the  methods  described  above. 

Baedecksr's  experiments  showed  that  the  more  complex  methods  did 
not  provide  a  significantly  greater  precision  than  the  simple  ones. 
Ue  therefore  recommended  the  Wasson  technique,  except  for  cases  where 
there  u-ere  large  deadtine  differences  between  samples  or  where  changes 
in  resolution  created  a  problem.   For  these  latter  cases  he  recommended 
the  T?A  method. 

More  complex  approaches  to  photopeak  quantitation,  such  as  curve 
fitting,  ^^;ere  also  reported.   The  least  squares  technique  for  fitting  a 
function  to  a  set  of  data  points,  discussed  by  Roberts,  Wilkinson,  and 
Walker  (65),  was  the  usual  method  of  choice,  although  Ciampi  and  co- 
workers i^h)    used  a  maximum  probability  technique. 

Early  authors  (55,6U,65)  used  a  pure  Gaussian  fitting  function  to 
approximate  the  photopeak  shape  in  Ge(Li)  spectra.   However  it  soon  be- 
came clear  that  this  function  did  not  give  a  satisfactory  fit  to  the 
peak  shape.   Routti  and  Prussin  (56)  discussed  the  physical  properties 
of  a  Ge(Li)  detector  system  which  gave  rise  to  the  basic  photopeak 
shape  and  noted  that  there  was  often  severe  tailing  of  the  basic  Gaussian 
on  the  low  energy  side.   Additional  tailing  was  also  observed  under  con- 
ditions of  high  counting  rates. 

Many  functional  forms  were  suggested  to  account  for  the  tailing  of 
the  main  Gaussian  shape.  Sanders  and  Holm  (56)  pointed  out  that  the 
only  criterion  for  the  selection  of  the  analytical  fitting  function  was 
an  adequate  representation  of  the  data  points.  They,  among  others  (56, 
67,68),  used  a  functional  form  which  combined  a  Gaussian  with  an  expon- 
ential contribution  for  tailing.   Kern  (69)  and  Pratt  and  Luther  (70) 
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suggested  methods  of  skewing  the  Gaussian  with  a  polynomial.   Robinson 
(71)  combined  two  offset  Gaussians  and  an  arctangent  to  represent  the 
photopeak  shape.   The  background  slope  was  usually  represented  by  either 
a  polynomial  or  an  exponential. 

On-line  computer  control  of  data  acquisition  was  reported  by  a  few 
workers  (72-76) .   DerMateosian  (77)  described  an  experimental  system 
which  interfaced  a  laboratory  computer  to  a  pulse-height  analyzer.   He 
then  described  the  advantages  of  direct  data  reduction  by  the  small 
computer.   Norbeck  and  Mancusi  (78)  described  the  more  common  approach, 
which  involved  the  transfer  of  the  digital  data  to  a  large  computer 
for  reduction. 

Neutron  activation  analysis  has  been  used  for  the  analysis  of 
biological  materials  since  shortly  after  its  introduction  to  the  scien- 
tific world.   Much  of  this  work  involved  the  chemical  separation  and 
isolation  of  the  desired  element  (79,80)  or  the  removal  of  large  inter- 
ferences, such  as  sodium  (81).   Recently,  however,  instrumental  analysis, 
using  Ge(Li)  detectors,  was  used  for  the  multielement  analysis  of  bio- 
logical materials  (82).   Linekin  and  co-workers  (85).  however,  indicated 
that  the  majority  of  this  research  used  data  reduction  techniques  de- 
veloped by  researchers  in  other  fields.   Therefore,  it  is  the  purpose  of 
this  research  to  demonstrate  the  applicability  of  the  dedicated  laboratory 
computer  to  both  the  acquisition  and  reduction  of  gamma-ray  spectra  of 
complex  biological  samples. 


THEORETICAL 

Modern  activation  analysis  experiments  usually  involve  the  acquisi- 
tion of  large  amounts  of  digital  data.   The  computer  can  therefore  relieve 
the  analyst  of  many  hours  of  tedious,  time-consuming  data  reduction. 
Correctly  programmed  the  computer  can  quickly  search  the  data,  locate 
valid  peaks,  and  determine  their  energies  and  peak  areas. 

Data  reduction  is  easily  done  on  a  large  computer,  where  the  programs 
may  be  complex,  lengthy,  and  written  in  a  conversational  language  such  as 
FORTRAN,  without  significantly  increasing  the  computation  time.   On  a 
mini-computer,  however,  the  data  reduction  methods  should  be  programmed 
in  assembly  language  and  decoded  into  machine  language  to  conserve  core 
space  and  keep  the  turn  around  time  compatible  with  laboratory  operation. 

Data  Smoothing 

Due  to  the  statistical  nature  of  the  spectra  obtained  in  gamma-ray 
spectrometry,  it  is  often  desirable  to  smooth  the  digital  data  before 
attempting  automated  data  reduction.   This  is  done  to  remove  much  of  the 
random  noise  without  unduely  degrading  the  underlying  analytical  informa- 
tion. 

The  smoothing  technique  used  in  this  research  was  described  by 
Savitsky  and  Golay  (41) .   This  method  uses  a  data  convolution  process  to 
obtain  the  least  squares  fit  of  a  polynomial  function  to  the  center  point 
of  a  block  of  raw  data.   The  convoluting  integers  are  the  same  for  either 
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a  cubic  or  a  quadratic  function. 

With  the  correct  set  of  convoluting  integers  and  normalization 
factor  the  smoothed  data  value  is  calculated  from 

i=+m 
Y  =  (  E   C.Y   )/N  (1) 

-'     i=-m    -* 


where        Y.   =  smoothed  data  value,  in  counts 

i   =  running  index  for  the  data  block 

m   =  (number  of  points  in  the  block  -  l)/2 

C,   =  convoluting  integer  for  the  ith  point 

in  the  block 
Y.  .=  raw  data  for  the  ith  point  in  the  block, 

in  counts 
j   =  index  for  the  channel  number 
.  N   =  normalization  factor,  a  scaler 

Yule  (42,44)  has  shown  that  a  single  smoothing  does  not  det;rade 
the  analytical  information  if  the  number  of  points  in  the  smoothing  in- 
terval does  not  exceed  the  average  peak  width  at  half  maximum.   It  will 
be  shown  in  a  later  section,  however,  that  the  smoothed  data  produce 
more  accurate  results  from  the  automated  data  reduction  routines. 

Peak  Detection 
Figure  1  illustrates  the  two  possible  peak  shapes  found  in  digital 
spectra.   The  first  has  a  positive  first  derivative  from  the  left  bound- 
ary minimum  to  the  peak  maximum,  and  a  negative  first  derivative  from 
the  maximum  to  the  right  boundary  minimum.   The  second  peak,  however. 
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has  several  rainiir.a  superimposed  on  the  basic  peak  shape.   This  problem 
is  common  in  spectra  which  cover  a  narrow  energy  range,  resulting  in  a 
greater  number  of  channels  within  the  peak  boundaries.   It  is  also 
common  to  peaks  with  small  peak-to-noise  ratios.   Hie  first  derivative 
will  change  signs  several  times  within  the  true  peak  boundaries. 

In  order  to  lirait  the  size  and  complexity  of  the  peak  detection 
software,  and  still  locate  both  types  of  valid  peak  shapes,  two  detec- 
tion routines  are  used.   Together  they  occupy  less  than  127o  of  the 
available  4K  of  core  and  require  only  two  to  eight  minutes  to  search  a 
2043  channel  spectrum  and  print  all  qualitative  and  quantitative  infor- 
mation. 

Both  of  the  peak  detection  routines  use  the  sign  change  of  the 
first  derivative  to  locate  minima  and  maxima.   However,  since  neither 
routine  requires  the  absolute  value  of  the  derivative,  the  sign  changes 
may  be  determined  from  the  first  differences. 

The  first  routine  searches  for  a  minimum  to  maximum  height  which  is 
greater  than  a  multiple  (usually  one)  of  the  baseline  noise.   The  noise 
is  determined  by  averaging  the  minimum  to  maximum  heights  over  the  forty 
channels  immediately  preceding  the  height  in  question.   If  two  peaks  are 
separated  by  less  than  forty  channels,  as  illustrated  by  Figure  1,  the 
same  value  of  the  noise  is  used  to  test  both  peaks.   Each  time  a  satis- 
factory height  is  detected,  the  integral  channel  location  of  the  minimum 
is  stored  as  a  possible  left  peak  boundary. 

The  right  peak  boundary  is  determined  by  the  channel  location  of  the 
next  minimum  whose  height,  relative  to  the  left  boundary  minimum,  is  less 
than  the  average  noise  value.   As  shown  by  Figure  1,  one  or  more  maxima 


13 
may  be  detected  within  the  boundary  minima.   The  peak  maximum  is  determined 

by  the  channel  location  of  the  highest  maxima. 

Valid  peaks  must  exceed  a  minimum  width,  which  is  determined  by  the 
resolution  of  the  system.   The  peak  height,  relative  to  both  boundaries, 
must  also  exceed  a  minimum  peak-to-noise  ratio,  which  may  be  assigned  a 
value  as  low  as  two.   If  any  of  these  requirements  are  not  satisfied, 
the  region  defined  by  the  boundary  channels  is  assumed  to  be  a  noise  spike. 

The  second  peak  detection  routine  assumes  that  all  valid  peaks  have 
only  one  maximum,  located  at  the  channel  where  the  sign  of  the  first 
derivative  changes  from  positive  to  negative.   The  left  and  right  bound- 
aries are  then  located  at  the  first  minimum  to  either  side  of  the  peak 
maximum. 

Valid  peaks  must  also  have  a  minimum  number  of  channels  between 
each  boundary  minimum  and  the  peak  maximum.   This  number  is  determined 
from  the  resolution  of  the  system  and  may  be  as  small  as  two.   The  peak 
height,  relative  to  both  boundaries,  must  also  exceed  the  minimum  peak- 
to-noise  ratio. 

The  tv;o  peak  detection  routines  are  complementary  to  each  other. 
While  both  methods  will  locate  the  first  peak  in  Figure  1,  method  two  is 
faster  and  less  sensitive  to  changes  in  the  slope  of  the  baseline.   Only 
method  one  will  detect  the  second  peak  in  Figure  1,  but,  as  will  be  shown 
in  a  later  section,  this  method  of  detection  may  select  erroneous  bound- 
ary channels.   A  complete  search  of  the  spectrum  by  both  routines  is 
therefore  necessary  to  insure  a  complete  and  accurate  analysis. 
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Peak  Quantitr. tion 

Once  the  peak  boundaries  arc  determined,  a  quantitative  measure 
of  the  peak  area,  and  thus  of  the  activity  of  the  decaying  isotope,  is 
calculated.   Several  techniques  have  been  suggested  for  obtaining  this 
area  directly  from  the  digital  data.   Two  of  these,  the  total  peak  area 
(TPA)  method  and  a  modification  uf  this,  devised  by  Wasson  and  cited 
by  Baedecker  (62) ,  are  used  in  this  research. 

The  total  peak  area  n>ethod  yields  the  largest  value  for  the  peak 
area  within  the  selected  boundaries.   The  area  is  calculated  from 


i=R 

^TPA  =   ^  ^i  ■  ^^L  ^  ^R^^^  -  L  +  l)/2  (2) 

i=L 


where 

A  „   =  total  peak  area,  in  counts 
TPA         *^ 

C    =  number  cf  counts  in  channel  i,  LSi^ 
L    =  channel  number  of  the  left  boundary 
R    =  channel  number  of  the  right  boundary 

An  alternative  method,  devised  by  Covell  (12),  uses  only  a  portion  of 
this  total  peak  area.   The  usable  area  is  calculated  from 


i  =  M+N 


A.  =  E      C.  -  (N  +  l/2)(C^^j,  +  C^.^)  (5) 


i  =  M-N 
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where 


A^   =  Covell's  peak  area   in  counts 
M     =   the   channel  number   of   the   peak  maximum 
N     =   the  number  of  channels   included   to   the' 
left  and  right   of   the   peak  maximum 

The  Wasson  modification   is  a   combination  of   the  above    tvo  methods.      The 
usable  Wasson  area    is   calculated   from 


i=M+N 


'^"ifM-N'l""'^2'<VN*«„.N) 


<«) 


where 


Ay  =  Wasson 's  peak  area  in  counts 
Bj  =  the  background  in  channel  j  determined  from 
a  straight  line  between  channels  L  and  R 

These  three  methods  are  graphically  illustrated  in  Figure  2. 

Baedecker  (62)  has  shown  that  the  Wasson  area  yields  a  more  pre- 
cise  measure  of  the  peak  area.   The  total  peak  area  includes  contribu- 
tions from  the  extremities  of  the  peak,  where  the  statistical  fluctua- 
tions  are  greater.   The  Covell  method  excludes  these  regions  but  yields 
a  much  smaller  absolute  area  than  the  Wasson  method.   This  research  in- 
cludes both  the  TPA  and  the  Wasson  methods  in  an  attempt  to  obtain  the 
best  results  in  all  cases. 
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Curve  Fitting 

The  method  of  curve  fitting  is  used  to  obtain  an  estimate  of  the 
total  peak  area  not  obtainable  directly  from  the  digital  data.   The 
final  functional  parameter  estimates  can  be  used  to  calculate  the  area 
beneath  the  fitted  curve  by  integration.   This  method  is  independent  of 
peak  boundaries  and  yields  an  excellent  estimate  of  the  true  area  of 
the  peak. 

The  method  of  least  squares,  vhich  has  been  successfully  applied 
to  chromatographic  data  by  Roberts,  Wilkinson,  and  Walker  (65)  and 
Chesler  and  Cram  (84),  is  used  to  fit  a  suitable  function  to  the  digital 

data.   If 

X  =  the  independent  variable,  i  =  1,2,...,N 

Y  =  the  experimentally  observed  data,  i  =  1,2,...,N 

P.  =  the  parameters  in  the  theoretical  function  F  , 
J  1 

j  =  1,2, ...,m 
P.  =  the  estimated  value  of  P.  for  the  kth  iteration 

k  k 

AP.    =    the   correction   to    the   estimate   P. 

J  J 

W.    =  a   weighting   factor,    a    scaler,    i   =   1,2,...,N 

F.    =  F(P, ,P^, . . . ,P    ,X.)    =    the    theoretical   function 
X  id  mi 

evaluated  at  point  X. 

1 

N  =  the  number  of  experimental  data  points 

m  =  the  number  of  parameters  in  the  function 

then  the  nonlinear  least  squares  technique  is  an  iterative  process  that 
fits  the  function  F  to  a  set  of  N  data  points. 
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The  residual  sun  of  squares 

'  =  ,f/i(^-V^  (5) 

is  minimized  through  the  choice  of  values  of  the  m  parameters. 

This  leads  to  equation  (6),  a  set  of  m  equations  in  the  m  unknowns 

k    k       k 
APj^,  ZiP^,  .  .  .  ,AP^.   For  the  kth  iteration  the  function  F.  is  given  by  F*^ 

and  new  estimates  of  the  parameters  are  calculated  from 


P^-"^  =  P^  +  AP^  .   j  =  1.2,....m  (7) 


The   process  converges  when 


Urn  P^  -  P  j   =   l,2,...,m  (8) 

k-«o     ■■  -" 


In  this  research  all  values  of  W.  are  set  equal  to  one. 

1 

The  full  energy  peak  in  a  Ge(Li)  spectrum  may  be  estimated  by  a 
basic  Gaussian  shape  which  has  a  low  energy  tail.   The  width  of  the 
Gaussian  is  determined  by  both  the  electronic  noise  of  the  system  and 
by  statistical  processes  connected  with  energy  absorption  in  the  detec- 
tor.  The  tail  on  the  leading  edge  of  the  Gaussian  is  caused  by  the  in- 
complete charge  collection  of  hole-electron  pairs,  due  to  recombination 
and  trapping.   Several  researchers,  including  Routti  and  Prussin  (56), 
Varnell  and  Trischuk  (67),  and  Head  (68),  have  shown  that  the  basic  peak 
shape  may  be  accurately  approximated  by  a  Gaussian  function  which  has 
been  joined  to  some  form  of  leading  exponential  edge. 

The  fitting  function  used  in  this  research  is  a  modification  of 
the  emperical  function  successfully  used  by  Chesler  and  Cram  (84)  to 
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21 
fit  chromatographic  peaks.   It  is  composed  of  a  leading  exponential  edge, 
a  hyperbolic  tangent  joining  function,  and  a  central  Gaussian.   The 
functional  forn  is 

-(X  -p,)2 

F^  =  ?^{exp[ — ]  +  0.5  {l-Tanh[P2(X.-P^)]}  x 


(9) 


2,1/2 


where 


^   rP6exp(.p^[{(P3-X.)^]^^'=^  +  (Pq-X.J])]} 

Pj^  =  the  height  of  the  Gaussian,  in  counts 
Pg  =  the  rate  of  change  of  the  joining  function 
P^  =  the  center  of  change  of  the  joining  function, 
in  Sigma  units 

P^  =  the  center  of  the  Gaussian,  in  sigma  units 

2 
Pc  =  cr  of  the  Gaussian 

^6  "   ^^^    initial  height  of  the  exponential,  in  counts 

P^  =  the  rate  of  decrease  of  the  exponential 

Pg  =  the  position  of  the  start  of  the  exponential,  in 

sigma  units 
X^  =  the  independent  variable,  in  sigma  units 

The  physical  interpretations  of  these  parameters  are  graphically  illus- 
trated in  Figure  3. 

Several  constraints  should  be  placed  on  the  parameter  estimates  to 
aid  in  the  correct  convergence  of  the  fitting  process.   These  constraints 
are  suggested  by  the  physical  interpretation  of  the  emperical  fitting 
function.   The  heights  of  both  the  Gaussian  and  the  exponential  tail 
should  always  remain  positive.   The  change  of  the  joining  function  and  the 
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23 
exponential   should  proceed   in  only   one   direction.      The  value   of   a^ 

should  always   be   positive.      The   positions   of   the   joining   function  and   the 

start   of    the   exponential    should  always  be    to   the    left   of    the   peak  maximum. 

Therefore    the   signs   of   P^,    P^,    P^,    P^,    and  P^   should  always   be   positive, 

k  k 

while    those   of   P     and  P      should  remain  negative.      Only   the   sign  of   P*^ 
JO  4 

should  be   allowed    to  vary. 

The    signs   of    the   parameter  estimates   are  checked   following    the   solu- 
tions  of   equation    (7)    but   before    the   beginning   of   the   next   iteration. 
If  any   sign   is    found    to   be    incorrect    the   value   of    the   parameter  estimate 
is   changed   to   one-half   of    the    last  accepted  value. 

To   simplify   the   partial   derivatives    let 

-(X.-P   )^ 

A.  =  exp[-^^ ]  (10) 

B.  =   0.5    (l-TanhfP^CX.-P^)])  (H) 
C^  =  P^exp(-P^[  ((Pg-X.)2]l/2  ^    (p^-xjl)                            (12) 

and   therefore 

^  =  \^\  ^  \^i^  (13) 


The   partial   derivatives  may   then  be   calculated   from 

a?. 

W:  =  ^i^  ^i^i  (U) 


where 


2k 


^F  SB. 


(15) 


3  3 


(16) 


(17) 


^F, 


=   Pi  (^) 


^p^   "     1  ^ap 


(18) 


^  ^1 

Sp^    -    ^i^i  ^W^ 

0  6 


(19) 


ap  ac 

a?:  ^  ^«i  (a?:> 


(20) 


ap.  ac. 


8 


8 


(21) 


^1     -<^-^i)^ 


ap, 


(X.-P,)A. 

P. 


(22) 


aA, 

I 

ap. 


(X.-P,)'^A. 

1      U'       1 


2P 


(25) 


SB  -2(X  -P  ) 

i. i 1. 


2    (exptP^CX.-P^)]  +  exp[-P2(X.-P^)]}' 


^  __   ^ 

^^3    (exptP^CX^-P^)]  +  evp[-P^(X.-P^)])2 


^,   C. 
i    1 
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(21^) 


(25) 


^^6  '  ^6 


(26) 


Sc 

^=-C,{[(P3-X.)2]^/2^  (Pg-Vi  (27) 


8      KPg-xp^l^^'' 

The  baseline  on  either  side  of  the  peak  is  approximated  by  the  polynomial 
^  =  ^  -^  ^O^i  ^  'lA  '  h2^l  (29) 


where  X.  is  expressed  in  channel  units.  The  same  nonlinear  least 
squares  process  is  used  to  fit  this  four  parameter  function.  The 
partial  derivatives  are  calculated  from 

a?J  =  1  (30) 
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^i     2 

W^^   =  ^i  (32) 

a^,  =  ^i  (53) 

The  total  fitting  function  which  approximates  the  combined  peak 
and  baseline  shape  is  therefore 

X^  =  F.  +  D^  ,  i  =  1,2,...,N  (3lv) 

The  solution  of  this  total  function,  however,  requires  the  filling  of 

a  twelve  by  twelve  matrix,  and  the  solving  of  twelve  equations  in 

twelve  unknovms.   The  computation  time  for  each  iteration  can  be  greatly 

reduced  by  fitting  the  polynomial  baseline  separately.   Equation  (29) 

is  then  evaluated  for  all  points  and  subtracted  from  the  experimental 

data.   The  resulting  corrected  data  are  then  fitted  with  the  eight 

parameter  function  F.. 

1 

The  success  of  the  curve  fitting  process  depends  greatly  on  the 
accuracy  of  the  initial  parameter  estimates.   The  digital  data  are 
often  used  to  obtain  these  estimates.   The  initial  value  of  P   is  deter- 
mined from  the  value  of  the  baseline  at  the  left  peak  boundary.   The 
initial  values  of  P,„>  P-,  •>  .  ai^d  P   are  set  to  zero.   The  values  of  the 
eight  peak  parameters  may  be  estimated  from  the  corrected  digital  data, 
follovjing  the  baseline  subtraction.   The  estimate  of  P   is  obtained 
directly  from  the  corrected  data.   The  values  of  P^,  P,,  P.,  P^,  and 

Pq  are  usually  estimated  by  3-0,  -1.5>  0,    1.0,  and  -1.5  respectively. 
o 

The  initial  estimates  of  P^  and  P   depend  upon  the  actual  shape  of  the 
leading  edge  of  the  peak,  but  are  usually  between  zero  and  one. 
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To  obtain  the  X^  values  in  the  fitting  interval,  expressed  in  sigma 
units,  the  right  side  of  the  peak  is  assumed  to  be  pure  Gaussian.   The 
number  of  abscissa  points  from  the  peak  maximum  to  the  right  boundary 
is  therefore  assumed  to  be  equal  to  three  sigma  units.   From  this 
assumption  the  values  of  the  increment  and  the  initial  abscissa  point 
in  the  fitting  interval  are  determined.   It  will  be  shown  later  that 
the  peak  function  can  be  successfully  fitted  to  as  few  as  ten  data 
points. 

Method  of  Standard  Addition 

In  the  method  of  standard  addition  quantitative  peak  areas  are 
determined  for  samples  to  which  known  amounts  of  standard  have  been 
added.   This  gives 

A^  =  k(W.  +  S^)  (55) 


where 


and 


where 


i    i 

A  =  peak  area  for  sample  i,  in  counts 

k  =  a  constant 

W  =  the  amount  of  element  in  sample  i,  in  grams 

S  =  the  amount  of  element  added  to  sample  i,  in  micrograms 

^p  =  *^%)  (56) 


A  =  peak  area  of  a  pure  sample,  in  counts 

W  =  the  amount  of  element  in  a  pure  sample,  in  grams 
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Before  they  can  be  compared,  however,  all  results  must  be  normalized 

to  a  standard  sample  weight.   The  normalization  factor  is  given  by 


pp   _  desired  standard  weight 1  .00  grams 

1   sample  weight  in  grams   ~  sample  weight  in  grams       ^^^ 


After  normalization,  equations  (55)  and  (36)  become 


A.CF.    =  k(W.CF^  +  S.CF.)  (38) 


and 


A  CF     =  k(W  CF  )  (^Q\ 

P     P  P     P  ^^^^ 


Since 


^i^^  =  v^  ^^^ 


then  subtraction  of  equation   (59)    from  equation   (58)    yields 


A.CF.    =  k(S   CFJ    +  A  CF  (1|1) 

L      1  i      i'  P      P 


The  X-intercept  of  a  plot  of  A.CF.    as  a   function  of  S^CF.    is    therefore 

L     1  i      1 

-A  CF 

X-intercept  =  — ? — ^     =  -W  CF  (1^) 

k  p     p 


which   is    the   negative   of   the   desired  experimental  value. 

The  method  of   standard  addition   is   used   to   insure   a   constant 
matrix  effect   from   the   complex   sample.      The   data   points   are    fitted  by 
the  method  of    linear   least   squares,    which  assumes    that  all   of    the   error 
is    in   the   calculated  peak  areas,    and   the  measured  amounts   of   standard 
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solution  added  to  the  samples  are  exact.  The  resulting  mean  square 
deviation  (MSD) ,  calculated  by  the  least  squares  method,  is  used  to 
estimate    the   error   in    the  X-intercept   from 

+  Error  =  +  MSD/k  (45) 


EXPERIMENTAL 

The   hardware   and   software   developed   for    this   research  were   designed 
and  constructed   to  yield  a   completely   flexible  multichannel   pulse-height 
spectrometer.      The   experimental   system,    shown   in  Figure   4,    was   capable 
of   both  high  resolution,    high  precision   data   acquisition,    and  rapid, 
comprehensive    data   reduction.      The   central,    dedicated  computer   served 
as   both  a   control  and  memory   for    the   collection   process,    and  a   central 
processing   unit   for    the   data   reduction. 

The   elements   up    to   and   including   the   analog    to   digital   converter 
(ADC)    are   common   to   all   pulse-height  analyzer   systems.      They   include   a 
detector,    a   pre-amplif ier,    a    linear   pulse-height  amplifier,    and  an  ADC. 

The   experimental   system  developed   for    this   research  utilized  a    50 
cc    lithium- drifted  germanium  detectcr  made   by  Nuclear  Diodes.      The   de- 
tector was   a  wrap-around  coaxial   design  which  was   rated  at   8%  efficiency, 
relative    to  a   5x3  Nal(Tl)    detector.      The   resolution  of    the   Ge(Li)    de- 
tector was   rated  at  2.3  KeV,    measured  at    the    1.33  ^^V   cobalt   peak,    and 
the   peak- to-compton   ratio  was   rated  at   23:1* 

The   detector  was   biased  at   2500  volts   by  an  Ortec   Model   456  high- 
voltage   power   supply.      A  Nuclear  Diodes  Model    103  pre-amplif ier  was 
connected   to  an  Ortec   Model   451   spectroscopy  amplifier.      An  Ortec  Model 
444  biased  amplifier  was   available   as   an   option. 

The  0-lOV  output  of  the  linear  amplifier  was  digitized  by  a  North- 
ern Scientific  Model  NS-629  analog  to  digital  converter.  The  Wilkinson 
type  ADC  was   capable   of   8192  channels   of   resolution  and   used  a   50  MHz 
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32 
clock   rate    for    the   digitization  process.      The   dead    time   of    the  ADC  was 
rated  at   J  +  0.02N  p,sec   per   event,    where  N   is    the   channel  address   of 
the   converted   signal.      The  ntiximum  dead   time   of    the   system  was    therefore 
167  jisec. 

All   signals   necessary   for    the    transfer   of    the    digital   data   and   the 
control   of    the  ADC   operation  were   0-5V   positive    logic,    and  were   access- 
ible   through  pins   at    the   back  panel   of    the  ADC.      Thirteen  bits   of 
address   data  were   available   for  parallel    transfer,    as   well   as   a   ready 
signal,    a   clear    line,    and  a    dead   time    signal.      The  ADC   performed  most 
of    the    functions   of   a   biased  amplifier   and,    when  desired,    allowed  a    full 
8192  channels   of   resolution   to  be   used  with   the   20^8  channels   of  avail- 
able memory. 

The   non-flexible   nature   of  most   commercially  available   pulse-height 
analyzers   was   overcome   by   the   use   of   a   programmable  mini-computer  as    the 
basic   control   and  memory  unit.      The  versatile  nature    of    the   software 
allowed  complete    flexibility   in  all    functions,    including   data   acquisi- 
tion,   printout,    display, and   data   reduction.      The   computer  was   a   PDP-8/L 
from  Digital  Equipment  Corporation.      With   8K  of   available   core,    kK  was 
used   for  memory   storage   and   UK  was   allotted   for  core   resident   software. 
The   PDP-8/L   used   12-bit  words,    had  a   cycle    time   of    1.6  |isec,    contained 
one   common  bus,    and  had  one    level   of   program  interrupt. 

All  major    input   and   output  was   achieved   through  a   Model  ASR  35 
Teletype,    which   typed   ten  characters   a    second.      The    spectra   were   dis- 
played  on  an   ITT  Model    1955D   fifteen-inch  display   oscilloscope,    and 
were   plotted  on  a  Model    7127A   strip  chart   recorder   from  Hewlett- 
Packard.      A  Tri-Data  Model   U096  magnetic    tape   unit,    capable   of    trans- 
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fering   1+62   12-bit  words   a   second,   was   used   for  all   bulk   storage. 

Hardware 
The   computer  based  pulse-height   analyzer   system,    described  above, 
required   the   design  and  construction   of    two  critical   hardware   compon- 
ents.     An    interface  was   built    to  allow  computer  control   of    the   data 
acquisition  by   the  ADC,    and    to   provide   a   means    for    transfering    the 
digital  address   data    to   the   computer.      A  high  precision   digital   clock 
was   built    to  accurately  control  all   count    times.      These    two  components 
are   discussed   in  detail   below. 

Interface 

The    logic    interface    shown   in  Figure   5   was   designed  and   developed 
to  allow  computer  control   of   the  ADC,    and   to  provide   a   means    for   paral- 
lel   transfer   of   digital   data   from   Che    13-bit  ADC   output   register    to 
the    12-bit   accumulator   register   of    the   computer.      Since   only  20U8 
channels   of  memory   storage  were   available,    the    twelve    least   significant 
bits   of    the  ADC   output  were   connected   to   the   computer. 

Since   all   computer   peripherals  were   connected   to   one   common  bus, 
individual   devices  were   controlled  by  means   of  a    6-bit   binary  code 
generated   through   the   memory  buffer  register    (MBR) .      The   execution  of 

an   input-output   transfer    (lOT) ,    software   command    (6XXY_) ,    caused  a 

8 

logical   "1"    to  be   generated   for   lj..25   ^sec   on   the   six  memory  buffer 
lines    indicated  by    the    two   octal   digits  XX   (56   for    the  ADC    interface). 
Therefore,    by  connecting  a    siic-input  nand  gate    to   the   appropriate  MBR 
lines,    a   specific    device,    such  as    the    interface,    was    individually 
controlled. 
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56 

The    same    6XXY     comnand  caused    the   computer   to   generate   any  com- 
8 

bination  of    three    input-output  pulses    (lOP's),    each   600  nsec    in   dura- 
tion.     The   octal   digit  Y   designated  which  combination  of   lOP's   were 
generated.      If  more    than  one    lOP  was   designated  by    the   software   command, 
the   order   of   generation  was    lOPl,    I0P2,    and   lOPU,    with   each   pulse 
separated  by  a    100   nsec    delay.      As    shown   in  Figure   5,    only  when   the 
correct   device   code    (XX)    was   called  were    the    lOP's   passed   through   the 
logic   of    the   device   selector.      This   prevented   the    lOP's    intended  for 
other  peripherals    from  activating    the  ADC    interface. 

Each  of    the    three    lOP's   performed  a    specific    function   in   the  ADC 
interface.      The    lOPl  was   used   to  check   the    status   of    the   ready   flag 
of    the  ADC.      When    the    flag  was   set    to  a    logical   "1",    indicating    that 
the   current   gamma-ray  pulse   had  been   digitized  and    the   address    data 
were   available   at   the   output   register,    the    lOPl   was   passed   to    the 
input-output   skip  gate   of    the   computer.      This   pulse   caused   the   computer 
to   skip  execution  of   the  next   software   command,    and   is   discussed   in 
more   detail    in   the   software    section.      The    I0P2  was   used   to   open  a    12- 
bit  bus    driver  network,    which  allowed  a   parallel    transfer   of    the 
address   data    from   the   output   register   of   the  ADC    to   the   accumulator 
register  of    the   computer.      The   I0P4  was   used   to   send  a   pulse    to    the 
clear   input   of    the  ADC.      This   pulse   caused   the  ADC    to   clear    the   out- 
put register,    reset   the   ready   flag    to   a    logical   "O",    and  accept  a 
new   input   signal    for   digitization.      The    timing   of    these    signals  will 
be   discussed  more    thoroughly   in    the   software   section. 

Timing   System 

The    timing   system  shown   in  Figure    6  was   designed  and  constructed 
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to  allow  the  highly  precise  and  accurate  control  of  experimental  count 

times  required  by  this  research.   A  1  >K2  crystal  clock,  accurate  to 
three  parts  in  10  ,  was  passed  through  a  series  of  logic  networks  to 
yield  a  1  Hz  output.   The  1  Hz  clock  rate  was  passed  through  the  divide- 
by-six  network  shown  in  Figure  6  to  yield  a  1/6  Hz  input  to   the  four 
decade,  presettable  down  counter.   The  1/6  Hz  pulse  train  clocked  the 
counter  every  tenth  of  a  minute. 

When  the  counter  was  at  zero,  the  gated  output  from  the  four  de- 
cades was  a  logical  "1",  which  held  the  input  nand  gate  closed  to  the 
clock  pulses.   A  push  button  switch,  connected  to  the  contact  bounce 
eliminating  network  shown  in  Figure  6,  produced  a  short  logic  pulse 

from  time  T,  to  time  T„ .   This  enabled  the  contents  of  a  four  decade 
A  B 

thumbwheel  switch  to  be  transferred  to  the  four  decades  of  the  down 

counter.   The  contents  of  the  counter  were  continuously  shown  on  a 

four  digit,  LED,  decimal  display. 

The  gated  output  of  the  four  decades  caused  the  input  nand  gate 

to  open  at  time  T_ ,  which  allowed  the  passage  of  the  1/6  Hz  clock 
B 

pulses.   The  leading  edge  of  the  first  pulse  through  the  input  gate 

(at  time  T„  )  caused  the  Q  output  of  the  control  flip-flop  to  go  from 
B+ 

a  logical  "0"  to  a  logical  "1".   This  output  was  connected  to  both  the 
interrupt  facility  of  the  computer  and  the  remaining  input  nand  gate. 
The  logical  "1"  therefore  served  to  both  initiate  the  computer  in- 
terrupt and  to  open  the  input  nand  gates  and  allow  the  clock  pulses 
to  drive  the  counter. 

As  the  1/6  Hz  clock  pulses  triggered  the  counter,  the  time  remain- 
ing for  data  acquisition  was  constantly  shown  on  the  lighted  display. 
When  the  counter  reached  zero,  at  time  T  ,  the  gated  output  of  the 
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four  decades  reset  the  control  flip-flop,  causing  the  Q  output  to  return 

to  a  logical  "O".   The  input  nand  gate  was  also  closed,  preventing  any 

more  clock  pulses  from  reaching  the  counter. 

In  this  manner  a  logical  pulse,  extending  from  time  T„   to  time 
T  ,  was  transferred  to  the  interrupt  facility  of  the  computer,  as 
illustrated  in  Figure  6.   Since  this  pulse  was  initiated  by  the  leading 
edge  of  a  clock  pulse,  the  length  of  the  logical  pulse  corresponded  to 
the  time  period  originally  set  on  the  thumbwheel  switch.   The  effect  of 
this  timing  pulse  is  discussed  further  in  the  software  section. 

A  single  pole,  double  throw  switch  allowed  a  choice  between  count- 
ing in  live  time  or  clock  time.   When  the  live  time  position  was  chosen, 
the  1  MHz  clock  rate,  directly  out  of  the  crystal,  was  gated  with  the 
dead  time  signal  of  the  ADC.   Clock  pulses  were  therefore  allowed  to 
pass  to  the  counter  only  when  the  ADC  was  clear  to  accept  an  input 
pulse  from  the  linear  amplifier.   When  the  clock  time  position  \;as 
chosen  all  clock  pulses  were  passed  to  the  counter. 

Software 

The  complex  mathematical  calculations  required  by  the  curve  fit- 
ting and  linear  least  squares  processes  were  performed  using  the  con- 
versational computer  language  FOCAL,  developed  by  Digital  Equipment 
Corporation.   The  FOCAL  programs  written  to  perform  these  mathema- 
tical calculations  are  listed  in  Appendix  II. 

All  other  software  used  in  this  research  was  written  in  assembly 
language  and  decoded  into  machine  language.   The  final  software 
package  was  completely  resident  in  the  UK.   of  core  allotted  for  that 
purpose,  and  included  all  routines  necessary  for  the  operation  of   the 


experimental  system  and  all  data  reduction  routines  except  those  in- 
volving curve  fitting.   Also  present  in  core  was  Digital  Equipment 
Corporation's  floating  point  package,  DEC-08-YQ2B-PB,  designed  to  per- 
form basic  mathematical  operations  and  to  provide  a  means  for  obtaining 
formatted  digital  input  and  output  through  a  Teletype.   A  complete  pro- 
gram listing,  excluding  the  floating  point  package,  is  found  in  Appendix 
I.   The  follov;ing  section  discusses  the  methods  of  operation  of  this 
software. 

Data  Acquisition 

In  order  to  maintain  the  resolution  of  the  detector  and  ADC,  a 
pulse-height  analyzer  system  must  be  capable  of  high  speed  data  acquisi- 
tion and  have  an  adequate  memory.   To  satisfy  these  requirements  with  a 
PDP-8/L  computer,  the  data  were  stored  as  2ii-bit,  double  precision  words 
in  one  UK  block  of  core,  and  the  computer  was  devoted  full  time  to  the 
data  collection  process.   This  yielded  the  shortest  possible  software 
execution  time  and  created  a  20*^8  channel  analyzer,  with  a  memory  storage 
capacity  of  over  16  million  counts  per  channel. 

Figure  7  illustrates  the  software  sequence  for  the  data  collection 
process,  and  Figure  8  shows  the  timing  relations  between  the  computer 
and  the  ADC.   The  software  was  written  to  interact  with  the  ADC  inter- 
face and  timer  described  earlier  in  the  hardware  section.   The  following 
discussion  uses  ideas  introduced  in  this  earlier  section. 

The  software  routine  first  cleared  the  entire  kK   of  memory,   Then, 
using  Teletype  interaction,  a  pointer  was  set  to  allow  an  exit  to 
either  a  printout  routine  or  a  program  halt.   If  a  printout  was  desired, 
the  specific  parameters  (first  and  last  desired  channels)  ware  entered 


Figure  7.   Flowchart  of  the  data  acquisition  software 
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through  the  Teletype.   The  link,  a  1-bit  register  also  used  as  a 

pointer,  was  then  set  to  one,  to  indicate  that  no  data  collection  had 
occurred. 

The  heart  of  the  data  acquisition  routine  consisted  of  tv;o  soft- 
ware loops.   The  outer  loop  vas  a  service  routine  for  the  interrupt 
facility  of  the  PDP-8/L.   When  the  interrupt  was  on,  the  computer  con- 
tinually monitored  the  Q  output  of  the  control  flip-flop  of  the  timer. 
If  the  output  of  the  timer  was  ever  a  logical  "O",  indicating  that  the 
timer  was  off,  the  computer  immediately  transferred  software  execution 
to  location  zero 'and  turned  the  interrupt  off.   The  software  sequence 
beginning  at  location  zero  checked  the  link  and,  if  no  data  had  been 
collected,  turned  the  interrupt  on  again.   Thus  the  computer  waited 
in  a  software  loop  until  the  timer  was  initiated,  indicating  the  start 
of  a  count.   When  the  timer  output  went  to  a  logical  "1"  the  computer 
set  the  link  to  zero  and  entered  the  inner,  data  acquisition  loop. 

An  input-output  transfer  (lOT)  command,  6561_,  called  the  ADC 

o 

interface  and  generated  an  lOPl  to  check  the  status  of  the  ADC  ready 
flag.   If  the  flag  was  not  set,  a  repeat  command  caused  the  sequence 
to  be  repeated  every  5.85  psec,  as  illustrated  in  Figure  8.   Once  the 
flag  was  set,  hovjever,  the  next  lOPl  was  passed  to  the  input-output 
skip  facility  of  the  computer,  and  the  repeat  command  was  skipped.   The 
skipped  instruction  allowed  the  execution  of  another  lOT,  6566o,  which 
again  called  the  ADC  interface,  and  generated  an  10P2  and  an  lOPlj.. 
As  Figure  8  illustrates,  the  I0P2  was  generated  first  and  caused  the 
twelve  bits  of  address  data  to  be  parallel  transferred  from  the  ADC  to 
the  accumulator  register  of  the  computer.   The  lOPli,  100  nsec  later, 
cleared  the  ADC  output  register  and  ready  flag,  which  allowed  the  ADC 
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to  accept  a  new  signal  for  conversion. 

While  the  ADC  was  converting  the  new  signal,  the  computer  performed 
the  proper  data  storage  by  incrementing  the  memory  location  designated 
by  the  contents  of  the  accumulator.   Only  the  lower  12-bit  word  of  the 
channel  address  was  incremented,  unless  the  incrementation  caused  an 
overflow  into  the  second  twelve  bits.   The  storage  process  required 
11.2  ^isec,  and  the  overflow,  which  occurred  only  once  every  i+096  counts 
In  any  given  channel,  required  an  additional  8  ^asec .   This  time  period 
constituted  the  entire  dead  time  of  the  computer  and  was  independent 
of  the  ADC  dead  time.   When  the  data  storage  was  completed,  the  computer 
returned  to  the  flag  checking  sequence. 

During  the  entire  data  collection  process  the  interrupt  remained 
on.   When  the  count  time  expired,  and  the  timer  output  returned  to  a 
logical  "O",  the  computer  immediately  transferred  control  from  the 
data  acquisition  loop  back  to  the  interrupt  service  loop.   Since  the 
link  had  been  set  to  zero,  the  software  execution  sequence  followed 
the  exit  pointer  to  either  the  data  printout  routine  or  a  program  halt. 

For  the  general  case  of  incrementation  of  only  the  lower  12-bit 
word,  there  was  an  11.2  lasec  computer  dead  time  between  the  clearing 
of  the  ADC  and  the  generation  of  the  first  lOPl  to  check  the  ready 
flag.   The  conversion  time  for  the  ADC  was  rated  at  5  +  0.02N  |j.sec, 
where  N  was  the  channel  number.   Therefore,  during  the  computer  dead 
time  the  ADC  could  complete  conversion  only  on  pulses  which  occurred 
in  the  first  1^-10  channels.   For  these  lower  energy  pulses  the  flag 
was  set  before  the  first  lOPl  was  generated.   For  all  channels  above 
UlO,  however,  the  computer  had  to  wait  in  a  5.85  |isec  loop  until  the 
ADC  conversion  was  completed. 
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In  Figure  8  the  latter  case  is  illustrated.   A  sequence  of  lOT's, 

each  1|.25  ^isec  in  length,  generated  the  lOPl's  to  check  the  ADC  ready 
flag.   Tliese  pulses  were  separated  by  a  1.6  ^isec  repeat  command  until 
the  flag  was  set,  at  which  time  a  second  lOT  immediately  followed  the 
first.   This  lOT  generated  both  the  I0P2  and  the  IOPl+,  which  initiated 
the  storage  process  and  cleared  the  ADC  respectivaly.   The  only  variable 
time  in  the  sequence  was  the  length  of  the  ADC  dead  time,  which  depend- 
ed upon  the  channel  address  of  the  digitized  signal. 

Data  Printout 

Figure  9  shows  the  flow  chart  for  the  data  printout  process.   The 
printout  software  was  entered  either  directly  from  the  data  acquisition 
routine  (point  A)  or  as  an  individual  routine  (point  B) .   Using  the  print- 
out parameters  (first  and  last  desired  channels),  obtained  by  direct  in- 
put through  the  Teletype,  the  computer  initialized  all  necessary  coun- 
ters and  variables.   Then  the  desired  block  of  data  was  printed  by  the 
Teletype  in  a  format  shown  in  Figure  10.   The  printout  was  terminated 
whenever  channel  20i+-7,  or  the  last  desired  channel  was  passed. 

As  Figure  10  illustrates,  the  first  number  in  each  line  of  data 
was  the  channel  address  of  the  first  data  point  in  the  line.   The  re- 
maining five  numbers  were  the  contents  of  the  five  channels  designated 
by  the  line  number.   The  number  of  digits  in  the  output  was  variable, 
and  all  leading  zeroes  were  replaced  by  spaces.   The  page  header  in- 
cluded the  spectrum  number,  the  magnetic  tape  number,  and  the  date  of 
the  data  collection.   Each  page  of  the  printout  was  eleven  inches  in 
length  and  contained  50  lines  of  data. 

Display 

Another   requirement  of   a  pulse-height   analyzer   system,    a   means   of 


Figure  9.   Flowchart  of  the  data  printout  software 
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visual  display  of  the  data  contained  in  cemory,  was  achieved  through 
the  software  illustrated  in  Figure  11.   The  digital  data  were  converted 
to  analog  voltages  by  a  10-bit  digital  to  analog  converter  (DAC) ,   The 
analog  output  of  the  DAC  was  fed  to  either  an  oscilloscope  or  a  strip 
chart  recorder.   The  method  of  display  was  selected  by  setting  bit  two 
on  the  PDP-8/L  switch  register  to  ?  one  for  a   plotter  and  to  a  zero  for 
a  scope. 

Since  the  DAC  converted  only  the  ten  most  significant  bits  of  the 
low  order  word  of  each  channel,  the  spectrum  had  to  first  be  treated 
to  yield  a  meaningful  display.   This  was  achieved  in  two  ways.   If  the 
initialization  routine  was  entered  at  the  start,  the  spectrum  was 
searched  for  any  data  greater  than  U095    (larger  than  twelve  bits). 
If  any  were  found,  the  entire  spectrum  was  rotated  to  the  right  one  bit 
(divided  by  two) .   This  process  was  repeated  until  all  data  had  been 
fully  rotated  into  the  lower  twelve  bits  of  each  channel  address.   The 
second  method  of  display  set  the  low  order  word  of  each  channel  whose 
contents  exceeded  twelve  bits  to  1;095^   (to  yield  a  full  scale  display). 
The  initialization  routine  was  then  entered  at  point  C.   VHien  all  data 
were  ready  for  display,  the  first  and  last  desired  channels  were  enter- 
ed directly  through  the  Teletype,  and  the  display  subroutine  (beginning 
at  point  E)  was  called. 

The  subroutine  first  checked  the  switch  register  to  determine  the 
desired  display  device.   When  a  scope  was  indicated,  the  subroutine 
was  returned,  if  necessary,  to  its  basic  form.   After  initializing  all 
counters,  the  data  were  sequentially  displayed  through  the  DAC.   Each 
point  was  retained  by  the  DAC  for  as  short  a  time  as  possible  (18.65  sec). 
At  the  end  of  the  desired  data  block  the  subroutine  checked  bit 
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Figure    11.      Flowchart   of    the   display  software 
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one  of  the  switch  register.   The  display  sequence  was  repeated  until 
this  bit  was  set  to  1,  at  which  time  it  was  terminated. 

When  a  plotter  display  was  desired  several  changes  v.-ere  made  in 
the  subroutine.   A  delay  loop  of  approximately  6U  msec  was  executed 
between  the  display  of  each  data  point  to  allow  the  plotter  pen  time  to 
respond  to  the  signal.   At  the  end  of  the  desired  data  block  the  dipplfiy 
was  terminated.   Once  terminated,  however,  the  identical  display  could 
be  repeated  by  entering  the  routine  at  point  D. 

Data  Smoothing 

The  software  shown  in  Figure  12  used  the  method  of  Savitsky  and 
Golay  (Ul)  to  smooth  the  digital  data  stored  in  the  computer  memory. 
The  original  spectrum  of  raw  data  was  replaced  in  core  by  the  smoothed 
data.   The  concepts  and  equations  for  this  method  were  discussed  earlier 
in  the  theory  section. 

All  values  required  by  equation  (1)  were  entered  directly  through 
the  Teletype.   This  input  included  the  number  of  points  in  the  smooth 
and  all  smoothing  constants.   Then  the  required  number  of  raw  data 
points  were  stacked  in  a  string  in  lower  core.   Each  point  in  the 
string  was  multiplied  by  appropriate  smoothing  constant  and  added  to  a 
subtotal.   The  smoothed  data  value  was  obtained  by  dividing  the  final 
subtotal  by  the  appropriate  normalization  factor.   The  smoothed  value 
was  then  stored  in  upper  core  in  place  of  the  original  raw  value.   The 
raw  string  was  advanced,  the  next  raw  data  point  was  added  to  the  end 
of  the  string,  and  the  process  was  repeated.   This  sequence  was  re- 
peated until  the  entire  spectrum  had  been  replaced  by  smoothed  data. 
Peak  Detection 

The  two  peak  detection  routines  were  discussed  earlier  in  the 
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theory  section.   Together  the  two  routines  were  designed  to  locate  and 
determine  boundaries  for  the  two  peak  shapes  illustrated  in  Figure  1. 
The  first  raethod  of  detection,  described  in  Figures  I3  and  Ik,    was 
specifically  developed  to  locate  the  second  peak  shape  in  Figure  1. 
This  peak  shape,  v/hich  has  several  statistical  minima  superimposed  on 
the  peak,  was  commonly  found  in  spectra  which  had  not  been  previously 
smooched,  and  with  peaks  which  had  a  small  peak-to-noise  ratio.   Peaks 
of  this  typs  were  also  commonly  found  in  spectra  which  covered  a  narrow 
energy  range,  even  after  these  spectra  had  been  smoothed. 

After  setting  the  printout  pointer  to  the  second  detection  routine, 
and  initializing  the  required  pointers,  counters,  and  variables,  the 
first  detection  method  began  the  search  for  a  positive  first  derivative, 
which  indicated  the  location  of  a  statistical  minimum  in  the  digital 
data.   After  saving  the  integral  channel  location  of  the  minimum  as  a 
possible  left  peak  boundary,  the  routine  located  the  next  maximum  by 
the  derivative  sign  change  from  positive  to  negative.   A  subroutine, 
which  was  entered  at  point  N  and  will  be  discussed  later,  was  then  called 
to  calculate  the  average  minimum  to  maximum  height  of  the  noise  over  the 
1+0  channels  immediately  preceding  the  possible  left  boundary.   The  height 
from  the  boundary  minim.um  to  the  maximum  was  then  compared  to  a  multiple 
(designated  by  the  variable  MIITHT,  usually  one)  of  the  average  noise. 
Unless  the  height  exceeded  this  noise  value,  the  routine  began  the  search 
for  a  new  left  boundary.   If  the  minimum  to  maximum  height  was  larger 
than  the  noise,  the  possibility  of  a  peak  was  recognized  and  the  routine 
continued  the  search  for  a  right  peak  boundary. 

As  Figure  1  illustrates,  however,  more  than  one  statistical  minima 


Figure    IJ.      Flowchart   of   the   peak   detection    (method   one)    software 
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were  often  detected  within  the  true  peak  boundaries.   The  routine 

located  the  next  minimum  and  saved  the  channel  location  as  a  possible 
right  boundary.   The  height  of  this  minimum,  relative  to  the  left 
boundary  minimum,  vas  then  compared  to  the  value  of  the  average  noise 
times  the  variable  MINHT.   If  the  height  exceeded  the  noise  value,  the 
right  boundary  was  rejected,  and  the  routine  determined  the  location 
of  the  next  maximum.   The  absolute  heights  of  the  maxima  were  then  com- 
pared, and  the  channel  location  of  the  higher  was  saved  as  the  peak 
maximum.   The  search  was  then  continued  for  a  right  boundary  minimum 
whose  height,  relative  to  the  left  boundary  minimum,  was  less  than  the 
noise  value.   When  this  boundary  was  found,  the  routine  jumped  to  point 
G,  shown  in  Figure  lU,  to  test  for  peak  validity. 

Beginning  at  point  G  the  routine  calculated  the  number  of  channels 
between  the  two  boundary  minima.   If  the  number  of  channels  was  less 
than  the  required  peak  width,  designated  by  the  variable  NCH  and  de- 
termined by  the  resolution  of  the  system,  the  peak  was  rejected  as  a 
noise  spike.   The  routine  then  returned  to  point  F,  where  the  channel 
location  of  the  last  minimum  was  saved  as  a  possible  left  boundary  and 
the  search  was  continued.   If  the  peak  was  wide  enough,  however,  the 
subroutine  beginning  at  point  H  was  called  to  test  the  peak  height, 
relative  to  both  the  left  and  right  boundaries.   If  either  height  was 
less  than  the  required  peak-to-noise  value,  designated  by  the  variable 
N,  the  routine  rejected  the  peak  by  returning  to  point  F  in  the  peak 
detection  routine.   If  all  peak  criteria  were  satisfied,  however,  the 
subroutine  beginning  at  point  I  was  called  to  permanently  store  the 
peak  parameters  in  a  string.   A  counter  for  the  number  of  peaks  was 
also  incremented,  and  the  routine  returned  to  point  F  to  search  for  the 
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next  peak. 

The  second  peak  detection  method,  described  in  Figure  15,  was 
designed  to  locate  major  peaks  in  a  spectrum  and  assumed  that  all 
valid  peaks  contained  only  one  maximum.   After  setting  the  printout 
pointer  to  a  program  halt  and  initializing  all  required  pointers, 
counters,  and  variables,  the  routine  began  the  search  for  a  positive 
first  derivative.   If  the  positive  derivative  was  the  first  in  a  series, 
indicating  the  location  of  a  statistical  minimum,  the  channel  location 
of  the  minimum  was  saved  as  a  possible  left  peak  boundary.   The  routine 
then  continued  the  search  until  the  required  number  of   consecutive 
positive  derivatives,  designated  by  the  variable  MNUM  and  determined 
by  the  resolution  of  the  system,  had  been  detected. 

If  the  required  number  was  reached  the  channel  location  of  the 
next  negative  derivative  was  saved  as  the  location  of  the  peak  maximum. 
The  routine  then  searched  for  the  next  minimum,  indicated  by  the  channel 
location  of  the  next  positive  derivative.   If  the  required  number  of  con- 
secutive negative  derivatives,  again  designated  by  the  variable  MNUM, 
were  detected,  the  location  of  the  minumum  was  saved  as   a  possible 
right  peak  boundary.   If  either  series  of  derivatives  were  too  small, 
the  peak  was  rejected  as  noise. 

Once  the  boundary  channels  were  located,  the  routine  called  the 
noise  evaluation  subroutine  to  calculate  the  average  noise  height  over 
the  Ij-O  channels  immediately  preceding  the  left  peak  boundary.   The  same 
subroutine  used  by  the  first  peak  detection  routine,  beginning  at 
point  H,  was  then  called  to  validate  the  peak  height.   If  the  peak-to- 
noise  ratio  exceeded  the  value  designated  by  the  variable  N,  the  sub- 
routine beginning  at  point  I  was  called  to  permanently  store  the  peak 


Figure    15.      Flowchart   of   the   peak   detection    (method   two)    software 
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parameters.   The  routine  then  saved  the  location  of  the  last  minimum 
as  a  possible  left  boundary  and  began  the  search  for  the  next  peak  at 
point  K. 

Whenever  the  sign  of  the  first  derivative  was  requested  by  the 
peak  search  routines,  the  derivative  subroutine,  entered  at  point  L 
and  described  in  Figure  16,  was  called  to  calculate  the  sign  of  the 
first  difference.    When  channel  20^+7  was  reached,  however,  the  peak 
search  was  terminated,  and  the  peak  printout  routine,  described  in 
Figure  16,  was  entered  at  point  M.   This  routine  printed  the  number 
of  peaks  located  by  the  search  and  typed  a  header  for  the  remaining 
printout.   Then,  for  each  peak,  the  peak  parameters  were  printed  and 
a  subroutine,  which  was  entered  at  point  Q  and  is  discussed  later, 
was  called  to  calculate  and  print  the  peak  areas.   When  all  peaks  were 
completed  the  peak  printout  pointer  was  followed  to  either  the  second 
peak  detection  routine  or  to  a  program  halt. 

Whenever  the  value  of  the  average  noise  was  required,  the  sub- 
routine entered  at  point  N  and  described  in  Figure  17  was  called  by 
the  peak  search  routines.   First  the  channel  counter  v;as  moved  back 
kO   channels  from  the  left  boundary  of  the  peak  in  question.   If  this 
starting  channel  address  was  less  than  the  right  boundary  of  the  last 
valid  peak,  as  illustrated  by  the  second  peak  in  Figure  1,  the  sub- 
routine restored  the  channel  counter  and  exited  with  the  last  noise 
value.   If  not,  the  subroutine  preceded  to  locate  minima  and  maxima 
by  the  sign  changes  in  the  first  derivative.   After  locating  each  ex- 
tremity, the  minimum  to  maximum  height  was  calculated  and  added  to  a 
subtotal,  and  a  counter  was  incremented  for  a  divisor.   VThen  the  kO 
channels  were  evaluated,  the  average  noise  was  calculated  by  dividing 


Figure  16.   Flowchart  of  the  software  which  determines  the 
first  differences  and  prints  the  final 
results  of  the  peak  searches 
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the  subtotal  by  the  divisor.   The  subroutine  then  restored  the  channel 

counter  and  exited  with  the  new  noise  value. 

The  software  required  to  calculate  and  print  the  peak  areas  is 
described  in  Figure  18.   The  subroutine,  which  was  called  by  the  peak 
printout  routine  and  was  entered  at  point  Q,  first  used  the  peak  par- 
ameters to  calculate  a  total,  trapezoid,  and  quantitative  area  accord- 
ing to  equation  (2).   The  areas  were  then  printed  as  total  peak  area 
values.   Tlie  peak  parameters  were  then  altered  according  to  the  Wasson 
peak  area  method.   The  number  of  channels  to  the  left  and  right  of  the 
peak  maximum  included  in  the  Wasson  calculation  were  designated  by  the 
variable  N\s'ASON.   If  either  of  the  original  peak  boundaries  were  inside 
the  Wasson  boundaries,  the  subroutine  was  exited  without  further  print- 
out.  If  the  peak  was  wide  enough,  however,  the  slope  of  the  total  peak 
baseline  was  calculated  and  used  to  determine  the  absolute  heights  of 
the  Wasson  peak  boundaries.   These  new  boundary  values  were  then  used 
to  calculate  new  total,  trapezoid,  and  quantitative  areas,  which  were 
printed  as  Wasson  area  values. 

Preparation  of  FOCAL  Compatible  Data 

All  curve  fitting  calculations  were  performed  using  the  FOCAL 
programs  listed  in  Appendix  II.  These  programs  required  that  the 
digital  data  be  converted  to  floating  point  and  stored  in  core  loca- 
tions accessible  by  the  FOCAL  subroutine  FNEW.    The  software  described 
in  Figure  19  was  written  to  perform  the  conversion  and  relocation  of 
the  digital  data. 

The  first  and  last  channels  of  the  desired  data  block  were  en- 
tered directly  through  the  Teletype.   After  initializing  the  required 
counters  and  variables,  the  data  block  was  relocated  in  integer  form 


Figure  18.  Flowchart  of  the  software  which  calculates  and 
prints  the  peak  areas  by  the  total  peak  area 
and  Wasson  methods 
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to  begin   in   location   zero.      The   data   relocation   insured   that   the 
final  converted   data  were   not   stored   in  core    locations   occupied  by    the 
data   block.      The   data   were    then   sequentially  converted   to  a    three-word 
floating   point   form  and  relocated   in    the   core    locations   corresponding 
to   the   even  FNEW   locations.      The   odd  FNEW   locations  were   cleared   for 
Iciter   use   as   storage    locations    for   the    fitted   data. 


RESULTS  AND  DISCUSSION 
System  Evaluation 

In  order  to  thoroughly  test  the  performance  of  the  analytical  data 
system,  eleven  different  sample  spectra  were  collected  and  stored  on 
magnetic  tape.   Pure  isotopes  of  p/Cr   ,  p^Fe   ,  ir(-,2^"   >  i^/,^^      »  ^j^^      ' 
and  ,-,Ag    ,  obtained  from  New  England  Nuclear,  were  used  to  prepare 
Che  radioactive  samples,  thus  insuring  that  spectra  of  known  composition 
were  experimentally  generated.   Table  I  lists  the  experimental  condi- 
tions under  which  the  spectra  were  collected.   The  same  isotopic  samples 
were  used  to  generate  spectra  6-8  and  spectra  9-11. 

Figures  20-22  illustrate  the  display  capability  of  a  strip  chart 
recorder  under  control  of  the  display  software.   The  output  to  the  re- 
corder was  generated  by  a  lO-bit  digital  to  analog  converter.   The  dis- 
play routine  easily  rotated  the  stored  spectrum  to  the  left  or  right 
one  bit  at  a  time,  thereby  multiplying  or  dividing  the  contents  by  two. 
This  allowed  the  operator  to  display  the  spectrum  completely  on  scale 
(Figure  20)  or  to  highlight  the  regions  of  interest  (Figures  21,22). 

Data  from  spectra  6  and  10  were  used  to  measure  the  linearity  of 
the  data  acquisition  system.   Figure  23  illustrates  the  linearity  be- 
tween gamma-ray  energy  and  photopeak  location  over  the  total  energy 
range  used  in  these  studies.   The  data  were  obtained  from  spectra  6, 
and  the  method  of  linear  least  squares  was  used  to  obtain  the  slope  of 
1.4S  channel/KeV,  the  zero  energy  intercept  of  0-37,  and  the  standard 
deviation  of  0.72  channel.   The  peak  locations  were  determined  by  the 
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peak  detection  software  and  were  given  by  the  integral  channel  loca- 
tion of  the  peak  maxima.   The  possible  error  in  these  values  was  there- 
fore on  the  order  of  +  1  channel.   For  this  reason  the  standard  devia- 
tion of  0.72  channel  represented  an  excellent  verification  of  the 
linearity  of  the  data  acquisition  system  over  the  total  energy  range, 
while  channel  zero  was  well  within  the  error  limits  of  the  zero  energy 
intercept,  0-57  +  0.72. 

Figure  2k   shows  that  this  linearity  was  retained  even  when  the 
spectrum  energy  range  was  decreased  and  the  resolution  of  the  ADC  was 
increased  by  a  factor  of  two.   The  least  squares  slope,  zero  energy  in- 
tercept, and  standard  deviation  were  k.J)Q   channel/KeV,  -5.J+7,  and  1.27 
channels  respectively.   The  increased  standard  deviation  was  expected 
since  the  number  of  channels  per  unit  of  energy  was  increased  by  a 
factor  of  almost  three.   Therefore  the  measured  error  of  only  +  1.27 
channels  again  demonstrated  the  excellent  linearity  of  the  system.   The 
non-zero  value  of  the  zero  energy  intercept  was  not  significant  since 
it  represented  only  a  relative  point  from  which  the  ADC  measured  the 
pulse-height.   The  zero  intercept  setting  of  the  ADC  was  adjustable 
electronically  and  was  set  as  close  to  zero  as  possible.   Once  set,  hov?- 
ever,  further  adjustment  proved  unnecessary,  even  when  the  resolution 
was  changed,  as  shown  by  the  results  above. 

The  system  stability  was  demonstrated  by  comparing  the  slopes  of 
the  linearity  curves  calculated  from  the  first  six  spectra.   These 
spectra  were  collected  on  six  different  days,  but  under  identical  ex- 
perimental conditions.   The  sLx  spectra  had  a  m.ean  slope  of  l.i^.8  channel/ 
KeV  and  a  standard  deviation  of  0.001  channel/KeV,  only  +  C.07  of  the  mean. 
The  resolution  of  the  Ge(Li)  detector  was  shown  to  be  a  linear 
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function  of  gamma-ray  energy  over  the  region  of  interest.   The  resolu- 
tion values  were  calculated  from  the  digital  data.   The  peak  height  was 
measured  relative  to  the  left  peak  boundary  and  the  value  of  the  full 
width  at  half  maximum  was  obtained  by  interpolating  between  two  data 
points  on  either  side  of  the  peak.   The  width,  in  channels,  was  then 
converted  to  an  energy  value  by  using  the  channel/KeV  value  cf  the 
spectrum.   Data  from  all  eleven  spectra  were  used  to  evaluate  the  lin- 
ear function,  with  the  results  shown  in  Figure  25.   The  linear  least 
squares  analysis  yielded  a  slope  of  2.0  x  10   ,  a  standard  deviation 
of  0.05  KeV,  and  a  zero  energy  intercept  of  1.9  KeV. 

Data  Smoothing 

To  evaluate  the  effect  of  smoothing  on  the  digital  data,  the  ele- 
ven spectra  were  smoothed  by  the  method  of  Savitsky  and  Golay  (41), 
using  the  weighting  constants  for  a  quadratic-cubic  polynomial  fit. 
As  Yule  (44)  suggested,  the  number  of  points  in  the  smooth  was  deter- 
mined by  the  number  of  data  points  in  the  full  width  at  half  maximum 
of  the  photopeaks.   Since  this  number,  as  shown  by  Figure  25,  was 
essentially  constant  throughout  any  of  the  sample  spectra,  the  smooth- 
ing interval  was  held  constant  over  the  entire  spectra.   Spectra  1-6 
required  a  five  point  smooth;  spectrum  10,  nine  points;  spectrum  11, 
eleven  points;  and  spectra  7  and  8,  thirteen  points. 

From  the  eleven  sample  spectra  listed  in  Table  I,  ninety-seven 
photopeaks,  ranging  in  peak  area  (corrected  for  background)  from  115  to 
142,202  counts,  were  selected  to  evaluate  the  effect  of  the  smoothing. 
Using  the  photopeak  boundaries  determined  by  the  peak  search  routines, 
the  total  spectrum  areas  beneath  the  smoothed  photopeaks  (including  the 
background  contribution)  were  compared  to  the  total  areas  in  the  raw 
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data.   These  ninety-seven  values  had  a  mean  of  100.087,  and  a  standard 

deviation  of  only  0.39%.   This  clearly  indicated  that  the  total  areas 
beneath  the  photopeaks  were  not  degraded  by  the  smoothing  process,  when 
the  above  smoothing  criteria  were  used. 

In  the  regions  between  photopeaks,  however,  the  effectiveness  of 
the  smoothing  was  clearly  evident.   Using  spectrum  6  as  an  example, 
several  of  these  baseline  regions  were  compared  before  and  after  smooth- 
ing.  As  expected  the  average  minimum  to  maximum  height  of  the  statis- 
tical fluctuations  was  reduced  25-50%.   The  total  areas  beneath  the 
baseline  regions  were  relatively  unchanged  by  the  smooth,  with  results 
similar  to  the  total  areas  above. 

The  difference  in  the  total  spectrum  area  and  the  peak  area  was  due 
to  the  trapezoidal  area  representing  the  Compton  and  background  contri- 
butions.  The  trapezoid  area  was  determined  exclusively  by  the  location 
and  contents  of  the  boundary  channels,  as  shown  by  Figure  2.   Therefore 
the  choice  of  the  boundary  channels  was  critical  for  accurate  calculations, 

Peak  detection  method  two,  previously  described  in  the  theory  sec- 
tion, was  designed  to  locate  the  integral  channel  locations  of  the  min- 
ima on  either  side  of  the  peak  maximum.   As  the  two  peaks  in  Figure  26 
illustrate,  selection  of  the  boundary  channels  was  often  influenced 
more  by  statistical  scatter  than  by  the  true  spectral  minima  created  by 
the  photopeak.   Since  this  scatter  was  more  pronounced  in  the  wings  of 
a  peak,  the  boundary  locations  in  unsmoothed  data  were  strongly  influ- 
enced by  the  statistical  nature  of  a  gamma-ray  spectrum. 

The  sharp  minima  created  by  the  "noise"  spikes  were  generally  at  a 
lower  activity  than  the  true  value  of  the  spectral  curve  at  that  channel. 
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Figure  26.  Effects  of  the  statistical  scatter  on  the  total  peak 
area,  resulting  in  too  large  (peak  A)  or  too  small 
(peak  B)  a  quantitative  area 
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Peak  A  in  Figure  25  illustrates  the  problem  encountered  vhen  the  bound- 
ary location,  as  determined  by  a  digital  minimum,  corresponded  closely 
to  the  channel  location  of  the  true  photopeak  minimum.   Since  the  activ- 
ity in  this  left  boundary  channel  was  lower  than  the  true  spectr^^l  curve, 
the  trapezoid  area  was  too  small,  resulting  in  too  Icirge  a  peak  area. 

Peak  B  in  Figure  26  illustrates  a  more  frequently  occuring  prob- 
lem.  A  false  minimum,  due  to  counting  statistics,  was  detected  between 
the  true  photopeak  minimum  and  the  peak  maximum.   The  activity  in  this 
channel  was  therefore  too  high,  resulting  in  too  large  a  background 
correction  and  too  small  a  peak  area. 

In  either  of  the  above  cases  smoothing  contributed  to  more  accurate 
peak  areas.   The  suppression  of  noise  spikes  helped  eliminate  undesired 
minima  in  the  digital  data.   This  led  to  the  selection  of  boundary 
channels  which  were  closer  to  the  true  photopeak  minima  and  helped  to 
bring  the  activity  in  these  channels  closer  to  the  true  spectral  curve. 

In  order  to  examine  the  two  problems  illustrated  in  Figure  26, 
67  of  the  original  97  peaks  were  again  analyzed.   These  peaks  were 
located  by  the  second  peak  detection  m.ethod  in  both  the  smoothed  and  un- 
smoothed  sample  spectra,  and  were  wide  enough  to  allow  quantitation  by 
a  nine-point  Wasson  method.   The  67  peak  areas  were  first  determined 
from  the  original,  unsmoothed  spectra  by  both  the  total  peak  area  (TPA) 
method  and  the  Wasson  method.   A  second  set  of  areas  was  determined 
from  the  smoothed  spectra.   Each  smoothed  peak  area  was  then  compared 
to  the  corresponding  raw  peak  area. 

The  67  comparative  values  from  the  TPA  method  ranged  from  87%  to 
128%,  with  a  mean  of  105.26%  and  a  standard  deviation  of  19.71%.  The 
67  Wasson  values  had  a  range  of  90%  to  112%,  a  mean  of  I02.il2%., 
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and  a  standard  deviation  of  9.8J%.   The  TPA  method  yielded  a  wider 
range,  a  higher  mean,  and  a  larger  standard  deviation.   This  was  ex- 
pected since  the  Wasson  method  did  not  include  an  area  contribution 
from  the  wings  of  the  peak,  where  the  statistical  scatter  was  greatest. 
High  mean  values  from  both  method:-;  indicated  that  the  scatter  in  the 
unsmoothed  spectra  contributed  to  high  baselines,  as  illustrated  by 
peak  B  in  Figure  26,  and  therefore  to  lost  quantitative  information. 

Based  on  the  above  results  it  was  concluded  that  smoothing  of  the 
digital  data  before  searching  the  spectra  and  analyzing  the  photopeaks 
was  highly  advantageous.   The  total  spectrum  area  was  unaffected,  but 
the  accuracy  of  the  final  peak  area  was  improved  by  as  much  as  28%. 
These  conclusions  were  based  on  the  assumption  that  the  correct  smooth 
was  performed. 

Peak  Detection 
The  peak  detection  software  developed  for  this  research  was  de- 
signed to  locate  all  valid  peaks,  even  when  the  peak-to-noise  ratio  was 
small.   The  detection  routines  were  also  written  to  operate  on  a  small, 
laboratory  computer,  with  limited  core  space  and  a  relatively  long  cycle 
time.   For  these  reasons  the  peak  recognition  criteria  were  kept  to  a 
minimum.   As  Mills  (54)  suggested,  the  operator  could  easily  reject  un- 
desired  information  when  the  routines  located  an  invalid  pseudo-peak. 
Method  two,  the  major  detection  routine,  was  based  on  the  first 
derivative  technique  described  by  Yule  (51),  and  was  discussed  in  the 
theory  section.   This  method  assumed  that  the  first  derivative  was  con- 
tinuous throughout  the  peak  and  successfully  located  most  peaks  in  a 
smoothed  spectrum.   However  the  routine  failed  to  locate  peaks  which 
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contained  false  minima,  caused  by  statistical  scatter,  in  the  central 
peak  region. 

To  aid  in  locating  these  peak  shapes,  illustrated  by  the  second 
peak  in  Figure  1,  method  one  was  developed.   This  peak  detection  method 
required  that  the  first  minimum  to  maximum  height  in  a  peak  exceed  the 
average  height  of  the  noise  in  the  l+O  channels  preceding  the  peak.   Ex- 
cept for  this  requirement  all  other  peak  detection  criteria,  such  as 
a  minimum  peak-to-noise  ratio,  were  similar  to  method  two. 

Table  II  lists  the  results  of  the  computer  searches  performed  on 
the  eleven  sample  spectra.   All  possible  photopeak  energies  emitted  by 
the  six  pure  isotopes  mentioned  earlier  were  obtained  from  the  litera- 
ture (85-87) .   Each  search  routine  was  performed  on  both  smoothed  and 
raw  spectra,  and  the  validity  of  each  peak  was  verified  by  a  visual 
check  of  the  data  and  spectral  printouts.   The  dash  signifies  the 
absense  of  the  isotope  from  the  sample.   Those  photopeaks  which  were 
known  to  exist,  but  were  too  weak  to  form  a  valid  peak  in  the  digital 
data  (as  confirmed  by  the  visual  check),  and  therefore  were  not  sensed 
by  the  peak  detection  routines,  are  designated  by  the  letter  A.   Valid 
peaks  which  were  detected  by  at  least  one  of  the  search  routines  are 
labeled  by  a  letter  C,  while  those  which  were  overlooked  by  the  soft- 
ware, but  were  actually  present  in  the  spectra,  are  designated  by  the 
letter  E.   The  D  label  indicates  that  the  peak  was  missed  by  method 
two,  but  was  found  by  method  one.   The  B  label  refers  to  peaks  which 
were  located  by  the  software  searches  but  were  too  small  to  be  found 
by  the  visual  check. 

Only  three  of  the  120  possible  peaks  were  not  detected  by  the 
computer  search  routines.   Two  of  these,  the  305-89  KeV  Se    peak 
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TABLE    II 
COMBINED   RESULTS   OF   THE  AUTOmTED   PEAK  SEARCHES 


PERCENT  SP-CTRL'M  NUMBER 

ENERGY  RELATIVE                            br^LiK^in  au.Ji^K 

(KeV)  ISOTOPE  INTENSITY  12^       h.     1     §.       1        89lOn, 

66.05  Se-75  1.1+  C^C-CC- 

96.75  Se-75  k.8  C        C        -      C        C        - 

121.15  Se   -    75  29.2  .--        --C       C        -C       C 

156.00  Se   -    75  96.0  C       C        -C       C 

li^2.i+5  Fe    -   59  l.U  -      -     C        -      C      C        E^      -      -        -        - 

192.25  Fe    -   59  k.k  -      -      C        -      C     C        D        -      -        -        - 

193.60  Se-75  2.5  C        C        -      C        C        - 

26i|.65  Se    -    75  100.0  ---        --C        C        -C        C 

279.52  Se-75  i+1.5  C        C        -      C        C 

505.89  Se-75  2.1  ED-DC- 


520.08  Or   -   51  100.0             ^a*^        '" 

55U.8I  Fe-59  0.4  --C-CA'^A---- 

1+00. 6U  Se   -   75  19.2            C        -        CC       C 

l+i+6.20  Ag   -    110m  5.5  C--C-A        -        AC        C 

511.00                 -  -  -CBCCC-C--- 

620.10  Ag   -    110m  2.9  C--C-A-AC-C 

657.60  Ag   -    110m  100.0  C--        C-C        -        CC        -        C 

677.50  Ag   -    110m  12.2  C--        C-B        -        -E        -        C 

686.80  Ag   -    110m  7.4  C--        C-A        -        -C        -        C 

706.60  Ag   -    110m  17.2  C--        C-C        -        -C        -        C 

71<-U.20  Ag   -    110m  k.k  C--C-A--C-D 

765.80  Ag   -    110m  2U.O  C--        C-A        -        -C        -        C 

817.90  Ag   -    110m  7.8  C--C-A--C-C 

88i+.50  Ag   -    110m  79.6  C--        C-C        -        -C        -        C 

957.50  Ag   -    110m  56.5  C--        C-A        -         -C         -        C 

1078.00  Rb   -    86  100. 0             C 

1099.27  Fe   -  59  100. 0            --C        -CC        

1115.51  Zn  -    65  100.0  -C-       CCC        -        -- 

1175.20  Co   -    60  100.0             --C        -CC        

1291.58  Fe   -   59  77.0            --C        -CC        

1552.50  Co  -  60  100.0     --C   -CC    

The  element  was  present,  but  the  signal  was  too  weak  to  form  a 


valid  peak 

^  peak  was  ] 
by  a  manual  check. 


A  peak  was  located  by  the  software,  but  was  too  small  to  be  detected 


A  valid  peak  was  detected  by  the  software. 

A  valid  peak  was  detected  by  method  one,  but  was  missed  by  method  two. 
^A  valid  peak  was  missed  by  both  software  routines. 
Annihilation  peak. 
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at  channel  452  of  spectrum  6  (Figure  22)  and  the  677.5  KeV  Ag^^^"* 
peak  at  channel  11+57  of  spectrum  9  (Figure  27),  were  relatively  large, 
but  they  exhibited  extensive  scatter  throughout.   The  nuaber  of  sta- 
tistical minima  superimposed  on  these  peaks  was  so  large  that  the 

basic  height  criterion  of  method  one  was  never  met.   The  lli.2.U5  KeV 

59 

Fe   peak  at  channel  860  of  spectrum  7  (Figure  28)  was  included  inside 

the  boundaries  of  the  large  I36.OO  KeV  Se''^  peak  at  channel  820  by 
me  thod  one . 

Figure  28  also  shows  two  examples  of  peaks  located  by  method  one 
but  missed  by  method  two.   The  192.23  KeV  Fe^^  peak  at  channel  1165 
and  the  303-89  KeV  Se   peak  at  channel  18!f6  exhibited  statistical 
minima  throughout,  even  when  properly  smoothed.   Figure  22  shows  the 
apparent  absence  of  a  peak  at  channel  1006,  although  method  one  detec- 
ted the  presence  of  the  677.5  KeV  Ag^^^™  at  that  location.   This  in- 
dicated that,  in  some  cases,  the  detection  software  was  more  sensitive 
to  the  presence  of  photopeaks  than  a  visual  search. 

Although  only  six  pure  isotopes  were  used  to  prepare  the  samples, 
gamma-rays  from  seven  radioisotopes  were  detected.   The  two  Co^°  photo- 
peaks  were  found  in  all  spectra  which  contained  the  Fe   photopeaks. 

This  was  probably  due  to  the  initial  3"  decay  of  the  Fe^°  during  ir- 

59 
radiation.   The  resulting  stable  Co   was  then  partially  irradiated  to 

Co 

Table  III  gives  the  number  of  peaks  detected  by  each  of  the  search 
methods.   No  one  method  was  mutually  exclusive  of  the  others.   Best 
results  were  obtained  by  performing  all  four  searches.   Valid  peaks 
were  verified  by  a  visual  check  of  the  spectra  and  a  knowledge  of  the 
exact  sample  composition.   Table  III  shows  the  greatly  increased 
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TABLE    III 
NUMBERS   OF    PEAKS   FOUND  BY  THE  AUTOMATED   PEAK  SEARCHES 


NUMBER 

COMBINED 

METHOD  ONE 

METHOD  TWO 

SPECTRUM 

POSSIBLE 

MINIMUM 

SEARCHES 

RAW 

SMOOTH 

R/i.W 

SMOOTH 

NUMBER 

PEAKS 

(P/N)^ 

TOTAL^ 

valid'^ 

T^ 

V^ 

T^ 

V^ 

T^ 

V^ 

1 

11 

2 

31^ 

11 

17 

11 

29 

11 

15 

11 

19   11 

3 

12 

11 

12 

11 

15 

11 

11 

11 

12   11 

k 

13 

11 

10 

10 

12 

11 

10 

10 

11   11 

2 

2 

2 

18 

2 

5 

2 

15 

2 

h 

2 

11    2 

3 

k 

2 

2 

2 

h 

2 

2 

2 

2   2 

U 

3 

2 

2 

2 

5 

2 

2 

2 

2   2 

3 

8 

2 

29 

8 

15 

8 

25 

8 

7 

6 

15   6 

5 

10 

7 

8 

7 

9 

7 

7 

6 

6   6 

U 

9 

7 

7 

7 

9 

7 

6 

6 

6   6 

h 

15 

2 

35 

15 

18 

15 

52 

11 

10 

10 

16  15 

3 

15 

15 

15 

15 

15 

11 

10 

10 

12  12 

k 

13 

12 

9 

9 

12 

11 

9 

9 

12   12 

5 

9 

2 

29 

9 

15 

9 

25 

8 

11 

8 

15    8 

5 

12 

9 

9 

9 

11 

8 

8 

8 

8   8 

1; 

9 

8 

8 

8 

8 

7 

7 

7 

7    7 

6 

25 

2 

27 

22 

18 

17 

22 

19 

20 

18 

19   19 

3 

20 

19 

17 

16 

17 

16 

15 

15 

17   17 

U 

18 

18 

17 

17 

U- 

U 

Ik 

U 

15   15 

7 

11 

2 

51 

10 

19 

9 

1+0 

8 

6 

k 

16   8 

3 

?? 

10 

11 

10 

20 

8 

1+ 

k 

8   8 

l^ 

14 

10 

9 

9 

12 

8 

k 

k 

8   8 

8 

5 

2 

32 

5 

12 

5 

21+ 

2 

2 

0 

12    5 

3 

23 

3 

5 

5 

22 

2 

0 

0 

k      5 

U 

11* 

5 

5 

5 

Ik 

5 

0 

0 

2   2 

9 

20 

2 

33 

19 

25 

18 

27 

17 

19 

18 

20   17 

3 

18 

18 

17 

17 

16 

16 

16 

16 

17   17 

k 

16 

16 

17 

17 

16 

16 

16 

16 

16   16 

10 

10 

2 

38 

10 

16 

9 

29 

8 

5 

k 

25  10 

3 

14 

10 

9 

9 

12 

8 

k 

k 

11   10 

It 

10 

9 

7 

7 

8 

7 

k 

k 

8    8 

11 

10 

2 

47; 

10 

11 

10 

i^5 

8 

5 

2 

21    9 

3 

2U 

10 

9 

9 

22 

8 

1 

1 

11    9 

^ 

11 

10 

8 

8 

9 

8 

1 

1 

10    9 

Total  120 

1 

2 

375 

117 

169  ; 

109 

305  ] 

L02  : 

LOO 

85  : 

185  106 

3 

171; 

112 

110  : 

L06 

159 

97 

78 

77  : 

108  105 

4 

150 

106 

97 

97  : 

117 

91+ 

75 

75 

97   96 

a 
Peak-to-noise   ratio 

Total   number   of   peaks    found 
c 
Number   of  valid  peaks    found,    where    the  validity  was   determined  by 

a  visual    search  of    the   spectrum 
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efficiency  of  method  two  with  the  smoothed  data.   This  was  especially 

notable  in  spectra  7  (Figure  28),  8,  10,  and  11  (Figure  29),  where 

the  increased  ADC  resolution  and  decreased  energy  range  resulted  in 

broader  peaks  and  significantly  greater  scatter  throughout  the  peak 

region. 

Table  III  also  shows  the  effect  of  changing  the  major  peak  de- 
tection criterion,  the  minimum  allowable  peak-to-noise  ratio  (P/N) . 
As  this  value  was  increased  from  two  to  four,  the  number  of  pseudo- 
peaks  located  by  the  search  routines  was  greatly  reduced.  This  was 
accomplished,  however,  by  reducing  the  ability  of  the  computer  routine 
to  detect  small,  valid  peaks. 

The  peak  search  routines  also  selected  the  peak  boundary  channels. 
As  noted  before,  these  channels  played  a  very  important  role  in  the 
determination  of  the  photopeak  area.   Method  two  was  designed  to 
select  the  first  minima  on  either  side  of  the  peak  maximum.   It  has 
been  previously  shown  that,  with  proper  smoothing,  these  minima  were 
usually  relatively  close  to  the  true  spectral  minima,  both  in  location 
and  content.   Method  one,  however,  used  different  detection  criteria 
which  often  resulted  in  the  selection  of  different  peak  boundary 
channels  which  were  further  from  the  peak  maximum. 

Ninety-three  common  peaks  were  detected  in  the  eleven  smoothed 
spectra  by  both  methods.   The  two  peak  detection  methods  selected 
different  boundaries  for  39  (U2/<.)  of  these  93  peaks.   Of  the  39  peaks 
with  different  boundaries,  37  (957.)  had  a  different  left  boundary  while 
only  19  (lj-9%)  had  a  different  right  boundary.   As  previously  discussed 
the  selection  of  the  left  boundary  by  method  one  was  critical  to  the 
final  choice  of  the  right  boundary.   This  was  verified  by  the  fact 
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that  only  tvjo  peaks,  selected  by  method  one,  had  the  same  left  boundary 
but  a  different  right  boundary. 

Thus  the  selection  of  the  left  boundary  by  method  one  was  critical 
to  the  entire  peak  detection  process.    Unfortunately  this  selection 
process  was  strongly  influenced  both  by  the  slope  of  the  Compton  upon 
which  the  peaks  were  located  and  by  overlapping  peaks  which  created 
large  background  bases.   These  problems  not  only  led  to  the  selection 
of  erroneous  peak  boundaries,  but  also  resulted  in  the  inclusion  of 
more  than  one  peak  maximum  within  a  set  of  peak  boundaries. 

A  few  examples  of  the  overlap  problem  were  found  in  the  sample 
spectra.    Method  one  detected  the  I36.OO  KeV  Se   peak  at  channel  202 
of  spectrum  6  (Figure  21),  but  the  left  boundary  at  channel  108  in- 
cluded both  the  96.73  ^nd  121.13  KeV  Se   peaks.   In  the  same  spectrum 
the  left  boundary  of  the  1115.51  KeV  Zn   peak  at  channel  1658  included 
the  1099.27  KeV  Fe^^  peak. 

The  large  positive  slopes  associated  with  Compton  edges  also 
created  problems  for  method  one.   The  88U.5  KeV  Ag     peak  at  channel 
1315  of  spectrum  6  (Figure  22)was  assigned  a  left  boundary  at  channel 
1055,  near  the  base  of  the  Compton  edge.   The  slope  of  the  spectral 
curve  was  so  large  that  the  initial  height  criterion  of  method  one  was 
satisfied  by  the  Compton  edge.   Once  this  occurred,  however,  a  right 
boundary  minimum,  whose  absolute  height  was  comparable  to  the  left 
boundary,  was  not  detected  until  the  Compton  edge  was  passed.   A  similar 
situation  occurred  in  spectrum  h    (Figure  30) .   Method  one  again  detec- 
ted the  881+.  5  KeV  Ag     peak  at  channel  1315,  with  a  left  boundary 
at  channel  1198.   In  this  case,  however,  the  left  boundary  included 
the  817.9  KeV  Ag   ™  peak  at  channel  1215.   In  each  of  the  above  cases, 
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method  two  detected  all  the  peaks  vjith  reasonable  boundaries. 

Curve  Fitting 

The  technique  of  mather.c  tically  fitting  a  function  to  digital 
data  has  been  used  for  many  years  to  determine  both  the  peak  maximum 
and  the  photopeak  area  in  gaaima-ray  spectra.   The  accuracy  of  this 
method  is  greatly  influenced  by  the  choice  of  the  functional  form. 
It  is  common  knowledge  that  the  major  component  of  the  photopeak  shape 
in  a  Ge(Li)  spectrum  is  Gaussian,  but  Routti  and  Prussin  (56)  explained 
that  this  does  not  completely  describe  the  total  peak  shape. 

Although  many  researchers  have  proposed  fitting  functions,  no  two 
have  agreed  on  an  exact  form.   The  majority  of  the  functions,  however, 
have  skewed  a  central  Gaussian  with  an  exponential  contribution  to 
approximate  the  low  energy  tail  common  to  most  photopeaks  in  a  Ge(Li) 
spectrum.   Sanders  and  Holra  (66)  observed  that  the  only  true  test  of 
the  functional  form  was  how  well  it  approximated  the  digital  data. 
Tominaga  and  co-v7orkers  (43)  stated  that  smoothing  was  often  unneces- 
sary for  curve  fitting,  but  Mills  (sU)  observed  that  the  smoothed  spectra 
gave  better  estimates  of  the  initial  parameters  of  the  fitting  function. 

The  function  chosen  for  this  research  was  an  emperical  form  of  a 
Gaussian  skewed  by  a  leading  exponential  tail.   These  two  major  com- 
ponents were  smoothly  combined  by  an  arctangent  joining  function.   The 
eight  parameters  of  this  three  function  convolute  have  been  discussed 
in  a  previous  section.   The  final  functional  form  was  similar  to  that 
used  by  Chesler  and  Cram  (84)  in  their  studies  with  gas  chromatographic 
peaks.   The  conversational  computer  language  FOCAL  was  used  to  program 
the  fitting  function.   The  mathematical  basis  for  this  least  squares 
technique  was  explained  in  the  theory  section,  and  the  FOCAL  programs 
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are  listed  in  Appendix  II. 

Once  a  peak  was  chosen  for  fitting,  an  appropriate  block  of  in- 
teger data  was  converted  to  floating  point  and  stored  in  memory  loca- 
tions accessible  by  the  FOCAL  compiler.   Whenever  possible  at  least 
twenty  to  forty  baseline  points  were  included  on  either  side  of  the 
photopeak.   The  number  of  data  points  in  the  peak  ranged  from  10  to 
57  points. 

The  solving  of  the  square  matrix  (equation  6)  constituted  the 
major  portion  of  the  computational  time.   Each  additional  parameter 
substantially  increased  this  time,  with  the  eight  parameter  function 
requiring  six  to  eight  minutes  per  iteration.   For  this  reason  a  four 
parameter  polynomial  was  fitted  separately  to  the  baseline  data  points. 
The  boundaries  selected  by  the  peak  detection  routines  were  used  as 
guidelines,  and  all  points  within  these  boundaries  were  excluded  from 
the  baseline  calculation. 

Using  the  basic  fitting  program,  the  polynomial  approximation  of 
the  baseline  was  determined.   Only  the  constant  parameter  was  initially 
approximated,  with  all  others  being  initially  set  to  zero.   No  more 
than  three  iterations  were  ever  necessary  to  obtain  the  best  possible 
fit,  and  each  iteration  required  approximately  one  minute. 

The  calculated  baseline  was  then  extended  through  the  peak  and 
subtracted  from  the  original  digital  data.   The  result  was  an  estimate 
of  the  pure  photopeak  shape,  resting  on  a  flat,  zero  baseline.   The 
data  was  positive  throughout  the  peak  area  and  oscillated  about  zero 
in  the  regions  of  pure  baseline.   The  first  negative  value  on  either 
side  of  the  central  peak  was  therefore  used  to  determine  the  boundaries 
for  the  peak  fit.   All  data  within,  but  not  including,  these  boundaries 
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were  used  to  evaluate  the  eight  parameters  of  the  fitting  function. 

The  original  estimate  of  P  was  obtained  directly  from  the  data. 

The  initial  values  of  P  ,  P  ,  P.  ,  P  ,  and  P  were  normally  set  to  3.0, 

£1   ^   4   J       0 

-1.5,  0,  1.0,  and  -1.5  respectively.   The  estimates  of  P   and  P   de- 

0       7 

pended  upon  the  actual  shape  of  the  peak,  but  were  between  zero  and 
one. 

The  abscissa  values  were  expressed  in  sigma  units,  the  standard 
deviation  of  the  central  Gaussian.   To  determine  the  X  values  in  the 
fitting  function,  the  right  side  of  the  peak  was  assumed  to  be  pure 
Gaussi,-;n  in  shape.   The  number  of  abscissa  points  from  the  peak  maxi- 
mum to  the  right  boundary  was  therefore  assumed  to  be  equal  to  three 
sigma  units.   With  this  estimate  the  values  of  the  increment  (IN)  and 
the  initial  abscissa  value  in  the  fitting  interval  (XO)  were  determined. 

A  measure  of  the  improvement  in  the  fit  following  each  iteration 
was  dcLerrained  by  the  percent  change  in  the  calculated  residual  sum  of 
squares.   Figure  5I  shows  a  plot  of  this  percent  change  versus  the 
number  of  itcrctions  performed  for  two  of  the  peaks  fit.   These  curves 
illustrate  that  a  sharp  decrease  in  the  early  iterations  was  followed 
by  a  gradual  change  in  the  latter  calculations.   The  shoulder  on  curve 
B  in  Figure  3I  indicated  that  the  fitting  process  passed  through  a 
local  minimum  in  the  residual  sum  of  squares.   A  point  was  quickly 
reached,  however,  where  the  improvement  gained  by  the  iteration  was 
not  worth  the  time  involved  for  the  computation. 

For  the  fitting  program  used  in  this  research  this  crossover 
point  was  judged  to  be  either  ten  iterations  or  a  percent  change  of 
less  than  5%  in  the  residual  sum  of  squares.   The  absolute  values  of 
the  residuals  were  not  used  in  this  consideration  because  they  were 


Figure  J)l.  Plot  of  the  percent  change  in  the  residual  sum 
of  squares  vs.  the  number  of  iterations  per- 
formed in  the  curve  fitting  process 
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found  to  be  dspendent  upon  the  peak  size,  the  amount  cf  scatter 
present,  the  number  of  points  in  the  fitting  interval,  and  the  values 
of  the  initial  parameter  estimates.    In  Figure  Jl,  curve  A  had  initial 
and  final  residual  values  of  530O  and  1552,  respectively,  while  curve 
B  fell  from  1^, 1*^15, 190  to  126,069. 

Table  IV  lists  the  percent  change  in  the  residual  sum  of  squares 
for  the  first,  tenth,  and  final  iteration  for  ench  peak  fit.   Table  IV 
shows  the  large  reduction  in  the  first  iteration  and  the  fact  that  the 
majority  of  the  peaks  showed  a  change  of  less  than  5%  v.'ithin  ten  itera- 
tions. 

To  demonstrate  the  validity  of  the  fitting  procedure,  55  peaks  of 
all  sizes  and  shapes  were  chosen  from  the  eleven  sample  spectra.   The 
digital  data  were  fit  as  described  above,  and  the  curve  was  evaluated 
at  each  point  by  adding  the  contribution  from  the  peak  to  that  of  the 
background  polynomial.   The  spectral  data  displayed  in  the  following 
figures  are  the  raw  curves  and  the  fitted  functions  with  the  latter  off- 
set for  the  purpose  of  illustration. 

Table  V  lists  the  location,  size,  and  background  shape  for  each 
of  the  peaks.   The  peak  heights  were  taken  from  the  final  P  values  of 
the  fitted  functions  while  the  average  noise  heights  were  calculated 
from  the  baseline  region  of  the  fitting  interval  immediately  preceding 
the  peak.   The  peak-to-noise  ratios  (P/N)  were  calculated  from  these 
two  values  and  represent  a  dynamic  range  of  500.   The  descriptions  of 
the  baselines  pertained  to  the  relative  shape  and  slope  of  the  baseline 
immediately  surrounding  the  peaks. 

Table  VI  lists  the  complete  fitting  information  for  each  of  the 
peaks.   The  calculation  of  the  increcent,  in  sigma  units,  was  discussed 
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TABLE    IV 
PERCENT  CHANGE    IN   W.E   RESIDUAL  OF   THE   CURVE   FITTING  FUNCTION 


ITERATION 

PEAK 

FIRST 

TENTH 

FINAL 

(#> 

1 

72.1 

4.0 

4.0 

(10) 

2 

81.1 

2.5 

0..2 

C59) 

5 

47.9 

7.8 

1.1 

(25) 

4 

82.0 

5.7 

5.7 

(10) 

5 

89.8 

0.9 

0.9 

(10) 

6 

18.1 

1.5 

1.5 

(10) 

7 

19.9 

1.6 

1.6 

(10) 

8 

62.6 

5.7 

5.7 

(10) 

9 

?5-4 

6.2 

6.2 

(10) 

10 

82.8 

0.5 

0.5  < 

(10) 

11 

55.9 

0.4 

0.4  ( 

(10) 

12 

15-0 

- 

5.8  ( 

(  5) 

15 

17.5 

1.5 

0.7  ( 

(15) 

14 

75-5 

- 

1.1  ( 

:  6) 

15 

22.8 

11.4 

0.0  ( 

:60) 

16 

52.6 

- 

1.5  ( 

:  6) 

17 

60.0 

5.5 

5.5  ( 

:io) 

18 

57.1 

- 

1.7  < 

:  8) 

19 

46.2 

9.7 

9.7  ( 

:io) 

20 

50.9 

1.5 

1.5  ( 

:io) 

21 

51.7 

- 

0.6  < 

.  9) 

22 

29.6 

- 

1.1  < 

:  8) 

25 

19.0 

- 

0.2  ( 

.  6) 

24 

2.0 

- 

2.0  ( 

1) 

25 

7.0 

- 

0.6  ( 

5) 

26 

45.2 

- 

5.9  ( 

7) 

27 

59.5 

0.5 

0.4  ( 

16) 

28 

15.5 

0.0 

0.0  ( 

51) 

29 

40.2 

0.0 

0.0  ( 

10) 

50 

55.6 

0.6 

0.6  ( 

10) 

51 

50.4 

- 

1.2  ( 

7) 

32 

50-7 

- 

0.2  ( 

7) 

53 

54.6 

0.2 

0.2  ( 

10) 

34 

86.0 

0.8 

0.8  ( 

10) 

35 

57.9 

0.1 

0.0  ( 

19) 
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mSLE   V 

DESCRIPTION 

OF   PS 

;AKS   SELECTED  FOR 

CURVE   FITTING 

PEAK 

SPECTRUM 

ENERGY 

HEIGHT^ 

P/N^ 

>EAK 

KU>EER 

Cl'.AJ'NEl 

,      ISOTOPE 

(KeV) 

(corais) 

baseli>te'^ 

1 

2 

1657 

Zn 

-   65 

1115.51 

9529 

944 

Flat 

2 

1 

1315 

Ag 

-    llOra 

884.50 

6120 

525 

Flat 

5 

9 

1875 

Ag 

-    llOm 

884.50 

5588 

159 

Flat 

k 

1 

1393 

Ag 

-    llOm 

957.50 

2855 

154 

Flat 

5 

9 

1987 

Ag 

-    llOm 

937.50 

1558 

87 

Flat 

6 

11 

1745 

Ag 

-    llOm 

834.50 

1754 

97 

Flat 

7 

7 

1946 

Cr 

-   51 

520.08 

1641 

77 

Flat 

8 

3 

1635 

Fe 

-   59 

1099.27 

9863 

519 

Steep  Neg. 

9 

I| 

1393 

Ag 

-    110m 

957.50 

1469 

58 

Steep  Neg. 

10 

1| 

1315 

Ag 

-    llOrd 

884.50 

5491 

78 

Steep   Pos. 

11 

7 

729 

Se 

y 

121.15 

2882 

67 

Slight  Pos. 

12 

8 

1065 

511.00 

289 

19 

Flat 

15 

1 

1216 

Ag 

-    llOm 

817.90 

715 

15 

Slight  Neg. 

14 

9 

1754 

Ag 

-    llOm 

817.90 

566 

25 

Slight   Neg. 

15 

1 

665 

Ag 

-    llOin 

446.20 

895 

18 

Steep   Pos. 

16 

10 

1716 

Se 

-    75 

400.64 

645 

20 

Slight   Pos. 

17 

k 

1216 

Ag 

-    llOm 

817.90 

555 

8 

Slight   Pos. 

18 

10 

1917 

Ag 

-    110m 

446.20 

240 

9 

Slight   Pos. 

19 

9 

I3I6 

Ag 

-    110m 

620.10 

218 

7 

Slight   Pos. 

20 

7 

580 

Se 

-    75 

96.75 

560 

17 

Compton  Edge 

21 

10 

illO 

Se 

-    75 

96.75 

545 

8 

Compton  Edge 

22 

11 

1459 

Ag 

-    110m 

817.90 

175 

14 

Flat 

23 

11 

613 

Ag 

-    110m 

620.10 

112 

5 

Flat 

2k 

7 

1846 

Se 

-    75 

305.89 

90 

4 

Flat 

25 

10 

1301 

Se 

-    75 

305-89 

65 

2 

Flat 

26 

6 

1742 

Co 

-    60 

1175-20 

24 

4 

Steep  Neg. 

27 

5 

1743 

Co 

-    60 

1175.20 

165 

8 

Steep  Neg. 

28 

11 

1143 

Ag 

-    110m 

744.20 

149 

7 

Slight  Neg. 

29 

6 

978 

Ag 

-    110m 

657.60 

199 

6 

Slight   Pos. 

30 

5 

171+3 

Co 

-    60 

1175.20 

201 

9 

Steep  Neg. 

31 

3 

1745 

Co 

-    60 

1175.20 

194 

8 

Steep   Neg. 

32 

8 

1959 

Ag 

-    110m 

657.60 

52 

5 

Flat 

33 

6 

1315 

Ag 

-    110m 

884.50 

129 

3 

Steep   Pos. 

^h 

1 

1008 

Ag 

-    110m 

677.50 

1410 

45 

Steep  Neg. 

35 

1 

1022 

Ag 

-    110m 

686.80 

862 

27 

Steep  Neg. 

Obtained  from  the  final  P,  value  of  the  fitting  function. 
Peak-to-noise  ratio. 
'General  description  of  the  baseline  shape  and  slope. 


Annihilation  peak. 
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TABLE   VI 
INITIAL  AND  FINAL  VALUES   FROM  TriE   CURVE   FITTING  CALCULATIONS 


OF 

PEAK  i::c?j::'Ent  points  ite.^a.tiom 
1 


5 
k 


10 

11 

12 
13 
Ik 
15 
16 
17 


0.375 

0.U3 

0.30 

0.1+3 

0.333 

0.167 

0.17 

0.33 

0.1+3 

0.50 

0.20 

0.12 

0.50 

0.333 

0.75 

0.20 

0.30 


1)6 
3U 
30 
25 
29 
57 
52 
3'f 
21 
21 
1+8 
1+6 
16 
26 
10 
31+ 
19 


0 
10 

0 
59 

0 

23 

0 
10 

0 
10 

0 
10 

0 
10 

0 
10 

0 

10 

0 
10 

0 
10 

0 
5 

0 
15 

0 
6 

0 
60 

0 
6 

0 
10 


10225  5.00 

9329  0.1+9 

61+li0  3.00 

6120  0.67 

3600  3-00 

3583  1.20 

2778  3.00 

2335  1.16 

1560  3-00 

1533  1.22 

181(1+  5-00 

1731+  0.70 

1682  3.00 

161+1  0.88 

9830  3.00 

9863  1.19 

11+63  3.00 

11+69  1.99 

3lai  3-00 

51+91  1.28 

2963  3. CO 

28S2  0.11 

500  3.00 

289  1.35 

750  3.09 

715  1.23 

385  3.00 

366  0.99 


Pt  P|               p.:  P^            p.,  Po 

_2  -it           _5  _6  _7  _8 

-1.50  0  1.00  0.50  0.50  -1.50 

-1.67  0.033  0.67  0.65  0.'+8  -1.51 

-1.50  0  1.00  0.50  0.50  -1.50 

-1.82  0.059  0.71  0.71  0.52  -1.39 

-1.50  0  1.00  0.20  0.50  -1.50 

-1.30  0.169  0.76  0.1+2  0.1j6  -I.30 

-1.50  0  0.30  0.30  0.50  -1.50 

-1.55  0.151  0.79  0.1+2  0.1+2  -I.5I 

-1.50  0  1.00  0.25  0.25  -1.50 

-1.21  -0.11,3  0.33  0.31+  0.32  -1.88 

-1.50  0  1.00  0.25  0.50  -1.50 

-1.31  -0.019  0.93  0.36  0.31+  -l.Sl 

-1.50  0  1.00  0.01  0.10  -1.50 

-0.00'+  0.020  105  0.03  1.08  -3.1i9 

-1.50  0  0.75  0.30  0.50  -1.50 

-1.1+9  0.053  0.56  0.'i4  0.55  -1.30 

-1.50  0  1.00  0.10  0.25  -1.50 

-1.12  0.01(2  0.86  0.20  O.5I+  -1.92 

-1.50  0  1.00  0.25  0.25  -1.50 

-1.35  -0.069  1.00  0.23  0.30  -1.83 


-1.50 
-3.02 

-1.50 
-0.1+0 

-1.50 
-1.57 

-1.50 


0  1.10  0.10  0.50  -1.50 

-O.OIS  1.15  0.07  0.16  -0.1+1+ 

0  1.10  0.10  0.10  -1.50 

0.001+  1.21;  0.03  3.01  -2.37 

0  1.00  0.10  0.10  -1.50 

0.01+6  0.9S  0.22  0.27  -2.12 


0 


1.00      0.10      0.10      -1.50 


910 
895 


3.00 
6.25 


650  3.00 

61|5  11.21 

370  3.00 

355  8.57 


-0.73  -0.152  0.85  0.15  0.27  -2.63 

-1.50  0  1.00  0.25  0.50  -1.50 

-1.5S  -0.031+  1.26  0.29  0.70  -2.05 

-1.50  0  1.00  0.10  0.25  -1.50 

-1.91  O.Ol+O  1.00  0.13  0.39  -1.87 

-1.50  0  0.75  0.01  0.10  -1.50 

-1.36  -0.107  0.1+5  0.09  0.13  -1+.214- 


Table  VI   continued 
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NUMBER 

PEAK 

incre;ent 

OF 
POINTS 

ITERATION 

!i 

!2 

h 

18 

0.20 

19 

0 

225 

3.00 

-1.50 

8 

2i40 

27.89 

-1.22 

19 

0.60 

11 

0 

202 

3.00 

-0.50 

10 

218 

2.06 

-1.62 

20 

0.20 

28 

0 

565 

3.00 

-1.50 

10 

560 

8.7U 

-1.1*2 

21 

0.333 

20 

0 

350 

3.00 

-1.50 

9 

3i+3 

7.62 

-0.67 

22 

0.20 

f|0 

0 

185 

3-00 

-1.50 

8 

175 

1.35 

-1.29 

23 

0.30 

20 

0 

120 

3.00 

-1.50 

6 

112 

li.03 

-1.36 

2Jt 

0.20 

30 

0 

92 

3.00 

-0.70 

1 

90 

1.50 

-0.35 

25 

0.30 

17 

0 

70 

3.00 

-0.75 

5 

65 

85.1i+ 

-0.09 

26 

0.60 

Ih 

0 

25 

3.00 

-1.50 

7 

2k 

12.72 

-0.85 

27 

0.50 

16 

0 

160 

3.00 

-1.50 

16 

163 

1.75 

-1.23 

23 

0.20 

32 

0 

160 

3.00 

-1.50 

15 

1U9 

126. lU 

-1.61 

31 

1U9 

126.  li| 

-1.61 

29 

0.50 

10 

0 

206 

3.00 

-1.50 

10 

199 

8.29 

-1.51 

30 

0.50 

19 

0 

196 

3.00 

-1.50 

10 

201 

2.99 

-0.35 

51 

0.50 

18 

0 

190 

3.00 

-0.85 

7 

19^ 

2.01 

-0.78 

52 

0,15 

35 

0 

55 

3.00 

-1.50 

7 

52 

7.56 

-1.3*^ 

33 

0.50 

12 

0 

127 

3.00 

-1.50 

10 

129 

29.06 

-1.79 

3h 

0.50 

18 

0 

11;23 

3.00 

-1.50 

10 

UIO 

0.71 

-1.71 

35 

0.60 

12 

0 

853 

3.0c 

-1.50 

19 

862 

3. 16 

-0.35 

0  1.00  0.001  1.00 

-0.228  0.77  0.19  0.96 

0  1.00  0.50  0.10 

-0.1+50  1.50  0.1+8  0.12 

0  1.00  0.10  0 . 30 

-0.083  0.93  0.16  0.65 

0  1.00  0.15  0.25 

-O.llU  1.21  0.17  0.1+7 


_8 

-1.50 
-1.70 

-0.50 
-0.90 

-1.50 
-1.51 

-1.50 
-2.00 


0  1.00  0.25  0.25  -1.50 

-0.01+5  1.19  0.31  0.31  -2.13 

0  1.00  0.25  0.25  -1.50 

-0.051  1.11+  0.33  0.10  -0.90 

0  1.1+0  0.010  0.001  -0.1+0 

0.011+  1.1^6  0.003  0.0003  -0.20 

-0.112  1.15  0.05  0.05  -0.05 

-0.11+1  1.50  0.03  O.ni  -0.01 

0  1.00  0.05  0.10  -1.50 

0.006  1.78  0.10  0.1+3  -3-61 

0  1.00  0.30  0.20  -1.50 

0.027  0.83  0.53  0.21+  -I.35 

0  1.00  0.25  0.25  -1.50 

-0.028  1.1+0  0.15  0.1+5  -1.53 

-0.027  1.1+0  0.15  0.1+1+  -1.51+ 

0  1.00  0.10  0.10  -1.50 

0.071  0.81+  0.26  0.30  -1.66 

0  1.00  0.50  0.50  -1.50 

0.189  0.83  0.68  0.27  -0.92 

0.200  0.90  0.70  0.30  -0.90 

0.219  0.90  0.79  0.25  -0.63 

0  1.00  0.15  0.50  -1.50 

-0.062  0.35  0.25  0.1+7  -1.1+2 

0  0.90  0.20  0.25  -1.50 

-0.11+3  0.56  0.35  0.57  -2.1+1+ 

0  1.00  0.30  0.60  -1.50 

-0.131  0.89  0.36  O.ji*  -^-^9 

0  1.00  0.30  0.20  -1.50 

-0.073  0.93  O.^k  0.21  -1.75 
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earlier.   The  number  of  points  in  the  fitting  interval  ranged  from 
ten  to  fifty-seven.   The  original  and  final  parameter  estimates  are 
listed,  along  with  the  number  of  iterations  actually  computed.   Peak 
28  illustrates  that  once  the  fitting  process  converged  to  a  minimum 
residual  sum  of  squares,  further  iterations  did  not  significantly 
change  any  of  the  parameter  estimates. 

Table  VII  lists  some  of  the  information  obtained  from  the  eight 
parameter  estimates  shown  in  Table  VI.   The  initial  and  final  resid- 
ual values  were  calculated  from  the  initial  and  final  parameter 
estimates.   The  raw  sum  was  obtained  by  suioming  the  digital  data, 
following  the  polynomial  baseline  subtraction,  over  the  total  peak 
fitting  interval.   The  fitted  sums  were  obtained  by  evaluating  and 
summing  the  fitted  functions,  using  both  the  initial  and  final  para- 
meter estimates,  at  each  channel  location  in  the  peak  fitting  interval. 

The  percentage  ratio  of  the  final  fitted  sum  to  the  raw  sum  was 
calculated  for  each  of  the  5^   peaks,  using  the  values  shown  in  Table 
VII.   These  ratios  had  a  range  of  97.70%  to  100.86%,  a  mean  of  99.80%, 
and  a  standard  deviation  of  only  0.74%.   This  demonstrated  that  the 
fitted  curves  were  truly  representative  of  the  actual  areas  encom- 
passed by  the  raw  data.   Since  the  raw  data,  in  this  case,  had  no 
background  contribution,  the  fitted  curves  were  representative  of  the 
quantitative  areas  enclosed  by  the  photopeaks. 

The  seven  peaks  shown  in  Figures  32-53  were  examples  of  large 
peaks  which  rested  on  relatively  flat  baselines.   The  large  peak-to- 
noise  ratios  (greater  than  75)  indicated  that  there  was  little  scatter 
associated  with  the  data  in  the  central  region  of  the  peak.   The  peaks 
in  Figures  37  and  58  were  taken  from  spectra  with  increased  ADC 
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TABLE   VII 
INITIAL  AND  FINAL  VALUES   FROM  THE   CURVE   FITTING  CALCULATIONS 


INITIAL 

FINAL 

NUMBER  OF 

INITI/iL 

FINAL 

BAW 

FITTED 

FITTED 

PEAK 

ITERATIONS 
10 

RESIDUAL 
15,414,000 

RESIDUAL 
504,028 

SUM 

72,545 

SUM 

SUM 

1 

82,167 

72,196 

2 

39 

4,415,190 

108,796 

59,595 

45,049 

59,254 

3 

23 

555,058 

31,779 

51,879 

52,449 

51,881 

4 

10 

554,854 

19,789 

17,615 

16,438 

17,655 

5 

10 

418,561 

12,452 

14,157 

15,907 

14,227 

6 

10 

451,891 

26,525 

52,405 

50,456 

52,457 

7 

10 

51,515 

25,898 

26,566 

25,442 

26,276 

8 

10 

4,419,770 

376,740 

68,284 

74,108 

68,047 

9 

10 

55.510 

7,473 

9,405 

9,158 

9,466 

10 

10 

502,125 

44,171 

21,552 

20,345 

21,588 

11 

10 

217,715 

89,225 

41,079 

40,425 

41,059 

12 

5 

12,554 

8,887 

6,959 

6,824 

7,005 

15 

13 

16,859 

6,546 

4,214 

4,118 

4,219 

14 

6 

24,654 

5,905 

5,055 

5.227 

5.050 

15 

60 

40,545 

2,400 

5,729 

5,558 

5,725 

16 

6 

23,609 

15,298 

8,466 

8,589 

8,495 

17 

10 

55,389 

15,811 

2,208 

2,690 

2,158 

18 

8 

29,025 

7,070 

2,690 

2,551 

2,715 

19 

10 

10,815 

2,011 

1,405 

1,296 

1.599 

20 

10 

52,788 

16,009 

7,290 

7,515 

7,246 

21 

9 

58,778 

9,850 

5,226 

2,852 

5,219 

22 

8 

9,506 

5,675 

5,010 

2,705 

2,981 

25 

6 

3,458 

2,067 

1,207 

1,127 

1,201 

24 

1 

3.819 

5,741 

1,548 

1,557 

1,547 

25 

5 

2,827 

2,500 

665 

656 

660 

26 

7 

286 

105 

143 

110 

145 

27 

16 

3.500 

1,540 

1,084 

978 

1,078 

28 

51 

7,945 

6,576 

2,264 

2,274 

2.275 

29 

10 

1,929 

521 

990 

1,047 

972 

50 

10 

9,705 

1,674 

1,444 

1,182 

1,452 

51 

7 

1,848 

587 

1,458 

1,540 

1,465 

52 

7 

571 

226 

875 

951 

872 

55 

10 

5,485 

617 

620 

666 

607 

54 

10 

154,959 

10,455 

8,119 

7,855 

8,118 

55 

19 

106,251 

4.856 

4,844 

4,500 

4,822 

Figure    52.      Raw   data   and   fitted  curve    (offset)    for   the 
1115.51  KeV  Zn   -    65   peak   taken   from 
spectrum  2 
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Figure   35.      Raw   data   and   fitted  curve    (offset)    for    the 
8814^.5   KeV  Ag   -    llOra  peak   taken   from 
spectrum  1 
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Figure    ^k.      Raw   data   and   fitted  curve    (offset)    for    the 
88i4-.5   KeV  Ag   -    110m  peak   taken   from 
spectrum  9 
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Figure    35.      Raw   data   and   fitted  curve    (offset)    for    the 
957.5  KeV  Ag   -    llOm  peak   taken   from 
spectrum  1 
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Figure    56.      Raw   data   and   fitted  curve    (offset)    for   the 
957,3  KeV  Ag   -    110m  peak   taken   from 
spectrum  9 
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Figure  37.   Raw  data  and  fitted  curve  (offset)  for  the 
88^.5  KeV  Ag  -  llOm  peak  taken  from 
spectrum  11 
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Figure   38.      Raw   data   and   fitted  curve    (offset)    for    the 
320.08  KeV  Cr   -    51    peak   taken   from 
spectrum   7 
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resolution  and  therefore  had  a  greater  number  of  data  points  in  the 

peak  fitting  interval.   For  all  of  these  peaks  the  initial  parameter 

estimates  were  easy  to  make,  and  the  fits,  as  shov;n  by  the  comparison 

curves,  were  excellent. 

The  peaks  shown  in  Figures  39-J|2  were  again  large,  but  v^ere 
located  on  sloping  baselines.   The  slopes  v;ere  the  result  of  Ccrapton 
edges  froni  higher  energy  peaks,  and  the  degree  of  the  slope  depended 
upon  the  intensity  of  the  higher  energy  peak.   The  cubic  polynomial 
easily  approximated  the  sloping  backgrounds  so  that,  following  the 
polynomial  subtraction,  all  skew  associated  with  background  was  removed. 
Again  the  comparison  curves  clearly  illustrate  the  excellent  simulation 
achieved  by  the  fitted  function. 

Figure  k^   shows  a  smaller  peak  (less  than  1000  counts  at  the 
peak  maximum)  which  was  located  on  a  flat  background.   The  apparent 
negative  slope  of  the  baseline  to  the  right  of  the  peak  vjas  the  result 
of  too  few  points  used  to  estimate  this  region.   However  the  simulation 
agreed  with  the  apparent  slope  of  the  raw  data  for  this  narrow  region. 

The  peaks  shown  in  Figures  UU-50  also  had  less  th?ui  100  counts 
at  the  peak  maxima.   Again,  the  baselines  were  sloped  due  to  a  Corapton 
edge  present  in  the  spectrum.   The  fitted  peaks  shown  in  Figures  47- 
k9,    however,  displayed  some  form  of  complex  behavior  on  the  left  side 
of  the  peaks.   Figures  k7   and  k9   show  a  small  shoulder  which  was  real 
and  vjas  caused  by  the  irregularity  of  the  raw  data.   The  best  fit  ob- 
tainable in  these  cases  did  not  have  a  smooth  joining  of  the  Gaussian 
and  exponential  parts  of  the  fitting  function.   It  is  significant  to 
note,  however,  that  the  fitting  function  characterized  the  shoulders 


Figure   39.      Raw   data   and   fitted  curve    (offset)    for    the 
1099.27  KeV  Fe   -   59   peak   taken   from 
spectrum  5 


157 


5000 


in 
X 


LU 


< 
X 
CJ 

Ql 
LU 
CL 

CO 


O 
O 


4000 


5000 


2000 


1000       ^ 


1550 


1625 


1700 


CHANNEL  NO, 


Figure    ifO.      Raw   data   and    fitted  curve    (offset)    for    the 
957.5  KeV  Ag   -    110m  peak    taken   from 
spectrum  k 
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Figure   ^4l .      Raw   data   and   fitted  curve    (offset)    for   the 
88^;. 5   KeV  Ag   -    llOm  peak   taken   from 
spectrum  k 
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Figure   1+2.      Raw  data   and   fitted  curve    (offset)    for    the 
121.15  KeV  Se    -    75   peak   taken   from 
spectrum   7 
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Figure   hj).      Raw   data   and   fitted  curve    (offset)    for    the 
511  KeV   annihilation  peak   taken   from 
spectrum  8 


145 


5000 


CO 


o 
X 


UJ 


< 

o 
Or: 

LU 
Ql 

CO 


o 

CJ 


4000 


5000 


2000 


1000 


CHANNEL  NO. 


Figure  kh.      Raw  data  and  fitted  curve  (offset)  for  the 
817.9  KeV  Ag  -  110m  peak  taken  from 
spectrum  1 
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Figure    k5.      Raw   data   and   fitted  curve    (offset)    for    the 
817,9  KeV  Ag   -    llOm  peak   taken   from 
spectrum  9 
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Figure  k6.      Raw  data  and  fitted  curve  (offset)  for  the 
Jl-i|6.2  KeV  Ag  -  llOni  peak  taken  from 
spectrum  1 
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Figure   k7 .      Raw   data   and   fitted  curve    (offset)    for    the 
i+00.6n  KeV  Se   -    75   peak   taken   from 
spectrum   10 
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Figure    ii^S.      Rnw   data   and   fitted  curve    (offset)    for   the 
817.9  KeV  Ag   -    110m  peak   taken   from 
spectrum  k 
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Figure  1+9.   Raw  data  and  fitted  curve  (offset)  for  the 
UH6.2  KeV  Ag  -  110m  peak  taken  from 
spectrum  10 
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Figure    50.      Raw   data   and   fitted  curve    (offset)    for    the 
620.1   KeV  Ag   -    110m  peak   taken   from 
spectrum  9 
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very  effectively  and  was  sensitive  to  their  pres&nce.   As  seen  from 
the  comparative  curves,  the  fits  ';-jere  accur-;te  representations  of  the 
raw  data.   Figure  k8   shows  a  high  baseline  near  the  left  edge  of  the 
fitted  peak.   This  high  baseline  was  due  to  both  the  extreme  scatter 
in  the  raw  data  and  the  method  of  choosing  the  fitting  interval.   If 
more  data  points  (including  negative  points)  fron  the  left  side  had  been 
included  in  the  fit,  the  rate  of  decrease  of  the  exponential  tail 
would  have  been  greater. 

Figures  51  and  52  show  two  different  examples  of  the  96.73  KeV 
Se   peak,  taken  from  spectra  7  (Figure  23)  and  10.   The  peak,  shown 
at  channel  580  of  Figure  28,  was  located  directly  on  top  of  a  Corapton 
edge  from  a  higher  energy  Se    peak.   Since  the  Corapton  edge  was 
caused  by  a  photopeak  from  the  same  Se    isotope,  the  peaks  from  both 
spectra  were  very  similar  in  shape  but,  as  indicated  in  Table  V, 
differed  in  height  and  peak-to-noise  ratio  by  a  factor  of  two. 

Due  to  the  Compton  edge,  the  slope  of  the  baseline  was  positive 
to  the  left  of  each  peak  and  negative  to  the  right.   As  the  curves  in 
Figures  51  and  52  show,  however,  the  cubic  polynomial  correctly  simu- 
lated the  baseline  over  the  entire  fitting  interval.   Although  the 
fitting  function  simulated  a  slight  shoulder  on  the  low  energy  side  of 
the  peak  in  Figure  51,  this  was,  as  in  the  examples  above,  the  result 
of  the  best  fit  of  the  chosen  function  to  the  available  data.   Since 
the  purpose  of  the  fitting  function  was  just  that,  the  final  shape  of 
the  fitted  curve  was  an  accurate  representation  of  the  experimental 
data . 

The  above  examples  clearly  demonstrate  that  the  chosen  function 
and  fitting  technique  were  applicable  to  the  major  photopeaks  in  a 


Figure   51.      Raw   data   and   fitted  curve    (offset)    for    the 
96.73  KeV  Sc    -    75   peak   taken   from 
spectrum  7 
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Figure   52.      Raw   data   and   fitted  curve    (offset)    for    the 
96.75  KeV  Se    -    75   peak   taken  from 
spectrum   10 
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Ge(Li)  spectrum.   The  remaining  peaks  will  demonstrate  the  applica- 
bility of  the  technique  to  small  peaks  (less  than  200  counts  at  the 
peak  maximum)  which,  because  of  their  small  peak-to-noise  ratios,  had 
excessive  scatter  superimposed  on  the  peak  shapes. 

The  peaks  shown  in  Figures  55-56  were  located  on  essentially  flat 
baselines.   Although  the  raw  data  showed  considerable  scatter  through- 
out the  region  of  the  peak,  the  fitted  curves  were  representative  of 
the  basic  peak  shapes.   Even  the  apparent  sloping  baseline  in  Figure 
5k   was  truly  representative  of  the  raw  data  over  the  narrow  region 
immediately  surrounding  the  peak. 

The  peaks  in  Figures  57-60  were  typical  of  small  peaks  which 
occurred  at  energies  which  coincided  with  large  Compton  edges  from 
higher  energy  peaks.   Although  the  baselines  were  high  and  sharply 
sloping,  the  polynomial  approximation  and  subtraction  easily  removed 
this  strong  interaction,  leaving  only  the  basic  peak  shapes.   As  the 
figures  show,  these  composite  curves  clearly  approximated  the  original 
raw  da  ta . 

In  all  of  the  above  examples  the  original,  unsmoothed  data  were 
utilized.   In  a  few  cases,  however,  the  scatter  altered  the  basic 
photopeak  to  such  an  extent  that  the  fitting  function  was  no  longer 
able  to  simulate  the  resultant  shape.   In  these  cases  the  data  were 
smoothed  once  and  then  fitted.   This  was  not  always  successful,  but  a 
few  examples  of  successful  applications  are  discussed  below. 

Figures  61  and  52  show  the  results  of  two  fits  to  the  same  peak. 
Figure  61  shows  the  result  of  the  fit  to  the  raw,  unsmoothed  data, 
while  Figure  62  shows  the  outcome  when  the  data  were  smoothed  first. 
In  both  figures  the  unsmoothed  peak  is  compared  to  the  final,  fitted 


Figure  55.  Raw  data  and  fitted  curve  (offset)  for  the 
817.9  KeV  Ag  -  llOra  peak  taken  from 
spectrum  11 
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Figure  5k.      Raw  data  and  fitted  curve  (offset)  for  the 
620.1  KeV  Ag  -  llOm  peak  taken  from 
spectrum  11 
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Figure      55.      Raw   data   and   fitted  curve    (offset)    for    the 
303.89  KeV  Se    -    75   peak   taken   from 
spectrum  7 
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Figure   56.      Raw   data   and   fitted  curve    (offset)    for    the 
503-89  KeV   Se    -    75   peak   taken   from 
spectrum  10 
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Figure   57.      Raw   data   and   fitted  curve    (offset)    for    the 
1173.2  KeV  Co   -    60   peak   taken   from 
spectrum  6 
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Figure   58.      Raw   data   and   fitted  curve    (offset)    for   the 
1173.2  KeV  Co   -    60   peak   taken   from 
spectrum  5 
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Figure  59.   Raw  data  and  fitted  curve  (offset)  for  the 
71^*4-. 2  KeV  Ag  -  llOm  peak,  taken  from 
spectrum  11 
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Figure    60.        Raw   data   and   fitted  curve    (offset)    for    the 
657.6  KeV  Ag   -    110m  peak   taken   from 
spectrum  6 
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Figure    61.      Raw   data   and   fitted  curve    (offset)    for    the 
1173.2  KeV  Co   -    60   peak   taken   from 
spectrum  3 
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Figure  62.   Raw  data  and  fitted  curve  (offset)  for  the 
1175.2  KeV  Co  -  60  peak  taken  from 
spectrum  ^.      The  data  was  smoothed  before 
the  fit  was  obtained. 
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curve.   The  basic  difference  occurred  at  the  top  of  the  peaks  in  the 
two  fitted  functions.   The  sharp  minimum  in  the  raw  data  was  best 
approximated  by  a  separation  of  the  Gaussian  and  exponential  parts 
of  the  fitting  function,  as  shown  in  Figure  61.   The  smoothing  re- 
duced this  minimum  to  such  an  extent  that  the  fitted  function  failed 
to  show  it,  although  there  is  still  a  slight  shoulder  on  the  final 
curve  near  the  top  of  the  peak  in  Figure  62.   Since  the  two  fitting 
intervals  were  not  exact,  the  suras  in  Table  VII  were  not  comparable, 
although  the  ratios  between  the  fitted  and  raw  sums  in  each  case 
were  nearly  exact. 

Figures  63  and  6h   show  examples  of  peaks  whose  shapes  were  dis- 
torted to  such  an  extent  that  pre-smoothing  was  necessary  to  obtain 
any  valid  fit.   In  both  cases  the  best  fit  showed  a  distinct  shoulder 
on  the  leading  edge  of  the  peak.   Because  the  peak  in  Figure  6^1  was 
located  near  the  top  of  a  large  Compton  edge,  the  number  of  data 
points  included  in  the  polynomial  baseline  fit  was  limited  on  the 
right  side  of  the  peak.   Enough  points  were  included  on  the  left,  how- 
ever, to  accurately  establish  a  correct  baseline  approximation. 

The  eight  parameters  utilized  in  the  fitting  function  were,  for 
practical  purposes,  the  upper  limit  for  the  PDP-8/L  computer.   Since 
each  new  parameter  expanded  the  square  matrix  which  was  the  heart  of 
the  least  squares  procedure,  the  computational  time  greatly  increased 
with  the  number  of  parameters.   For  this  reason  the  simultaneous 
fitting  of  two  overlapping  peaks  was  impractical.   Overlapping  peaks 
presented  few  problems,  however,  due  to  the  tremendous  resolution  of 
the  system.   A  simple  expansion  of  the  energy  scale  solved  most  of  the 
problems. 


Figure   63.      Raw   data   and   fitted  curve    (offset)    for    the 
657.6  KeV  Ag   -    llOm  peak   taken   from 
spectrum   8.        The    data   was   smoothed  before 
the    fit  was   obtained. 
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Figure  6^4-.   Raw  data  and  fitted  curve  (offset)  for  the 
8SU.5  KeV  Ag  -  110m  peak  taken  from 
spectrum  6.   The  data  was  smoothed  before 
the  fit  was  obtained. 
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In  a  few  cases,  however,  there  was  a  small  amount  of  overlap  be- 
tween two  major  peaks  which  did  not  prevent  the  detection  routines 
froni  locating  the  peak  boundaries,  but  affected  the  final  quantitative 
results.   Such  a  case  resulted  when  the  low  energy  tail  of  one  peak 
extended  below  the  base  of  another.   The  tail  was  usually  treated  as  a 
positively  sloped  baseline  and  approximated  by  the  polynomial.   This 
approach,  however,  did  not  solve  the  area  problem  of  the  higher  energy 
peak. 

A  more  accurate  solution  involved  the  individual  fitting  of  each 
peak.   The  peaks  in  Figure  65  illustrate  such  a  case.   The  basic 
fitting  function  assumed  that  the  photopeaks  were  pure  Gaussian  on  the 
high  energy  side.   It  was  therefore  assumed  that  the  data  to  the  right 
of  the  separating  minimum  did  not  include  any  overlap  contribution. 
Since  enough  of  the  higher  energy  peak  shape  was  represented  to  allow 
a  valid  fit,  the  functional  form  for  this  peak  was  calculated.   This 
function  was  then  subtracted  from  the  lower  energy  peak,  leaving  a  new 
set  of  data  from  which  a  second  function  was  calculated.   Each  set  of 
parameters  was  then  used  to  calculate  the  individual  peak  areas.   The 
total  curve  was  obtained  by  adding  the  contribution  from  each  peak  to 
the  background. 

The  results  of  the  above  procedure  were  used  to  verify  the  orig- 
inal Gaussian  assumption.   The  total  peak  area  was  determined  for  each 
of  the  fitting  intervals  by  adding  the  contribution  from  each  of  the 
individual  peaks.   VThen  the  total  areas  were  compared  to  the  individual 
contributions,  it  v;as  found  that  the  second  peak  in  Figure  65  contri- 
buted over  4'7o  of  the  total  peak  area  to  the  left  of  the  separating 
minimum  while  the  first  peak  was  responsible  for  less  than  0.1%  of  the 


Figure  65.   Raw  data  and  fitted  curve  (offset)  for  the 

677.5  and  686.8  KeV  Ag  -  llOra  peaks  taken  from 
spectrum  1 
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191; 
areas  to  the  right.   This  verified  the  assumption  that  the  right  side 
of  the  first  peak  was  Gaussian  and  did  not  contribute  significantly  to 
the  shape  of  the  second  peak. 

Peak  Areas 

The  curve  fitting  results  were  used  to  obtain  the  true  peak  areas 
of  Llie  >5  fitted  peaks.   The  areas  were  obtained  by  numerically  inte- 
grating the  fitted  functions  by  the  trapezoid  method,  using  an  interval 
of  0.1  channel.   The  fitted  sums  were  calculated  by  adding  the  function- 
al values  at  each  channel.   The  boundaries  cr  the  orginal  data  blocks 
were  used  to  fix  the  limits  for  these  calculations. 

The  fitted  sums  were  calculated  as  a  percentage  of  the  total  in- 
tegrated areas  to  determine  the  necessity  for  the  lengthy  integration 
procedure.   The  5^  values  had  a  narrow  range  of  99.7%  to  100.87.  and 
averaged  100.0  +  0.5  %.   These  results  indicated  that  the  simplified 
summation  technique  was  as  accurate  as  the  more  complicated  numerical 
integration  process.   However,  in  order  to  maintain  as  high  a  degree  of 
accuracy  as  possible  the  integrated  areas  were  utilized  in  the  remainder 
of  this  research. 

Because  of  the  nature  of  the  least  squares  method,  the  curve 
fitting  approach  offered  the  most  accurate  technique  for  determining 
the  peak  areas.   The  complications  and  time  involved,  however,  often 
offset  the  increased  accuracy  achieved.   Therefore  the  peak  detection 
routines,  together  with  the  more  simplified  methods  for  approximating 
the  peak  areas  directly  from  the  digital  data,  were  used  for  routine 
analysis . 

There  were  two  major  sources  of  error  associated  with  the  simpli- 
fied peak  area  methods.   The  first  involved  the  correct  location  of 
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the  peak  boundaries,  and  the  second  involved  the  method  of  choice  for 
calculating  the  peak  area. 

To  test  the  boundary  selections  obtained  from  the  peak  detection 
routines  the  fitted  functions  were  reevaluated.   With  the  limits  for 
the  integration  of  the  fitted  functions  fixed  by  the  boundary  channels 
selected  by  the  search  routines  from  smoothed  data,  the  partial  inte- 
grated areas  were  calculated.   The  boundaries  selected  by  method  two 
were  given  precedence  whenever  conflict  arose. 

The  partial  integrated  areas  were  then  compared  to  the  total  in- 
tegrated areas  previously  calculated.   Table  VIII  lists  both  of  these 
areas  and  the  comparison  values.   The  low  results  from  peaks  17,25,52, 
and  55  were  understandable  in  view  of  the  earlier  curve  fitting  dis- 
cussion regarding  these  peaks.   The  high  exponential  tail  of  peak  17 
and  the  unusual  separation  of  the  exponential  tail  from  the  Gaussian 
in  the  three  other  cases  were  all  indications  of  severe  scatter  in  the 
region  of  the  peak,  which  led  to  an  increased  chance  of  a  poor  boundary 
selection.   The  comparison  values  for  all  55  peaks  averaged  95.5  +  7.0%. 
VJhen  the  above  four  peaks  were  excluded  from  consideration  the  remain- 
ing 51  values  averaged  97.i+  +  '^.h'L.      These  results  clearly  indicated 
that  the  majority  of  the  peak  area  was  included  within  the  peak  bound- 
aries selected  by  the  peak  detection  routines. 

In  a  similar  study  the  peak  areas  determined  by  the  total  peak 
area  (TPA)  method  on  smoothed  data  were  compared  to  the  total  integra- 
ted areas.   Table  DC  lists  these  results.   The  comparison  values  for 
all  55  peaks  had  an  average  of  93-8  +  16.57.,  while  removal  of  the  same 
four  values  raised  this  average  to  97.7  +  11.57o.   These  results  indica- 
ted that  the  TPA  method  also  produced  the  majority  of  the  total  available 
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TABLE  VIII 
CURVE   FITTING   RESULTS 


TOTAL 

PARTIAL 

INTEGRATED 

INTEGRATED 

PERCENTAGE 

PEAK 

AREA    (COUNTS) 

AREA    (COUNTS) 

(PARTIAL*100/TOTAL) 

1 

725U.9 

72235.6 

99.8530 

2 

39290.6 

39267.4 

99.9409 

3 

31975. U 

31919.8 

99.8525 

k 

17656.4 

17594.6 

99.6500 

5 

U557.1 

14245-1 

99.5443 

6 

32721+.9 

52615.5 

99.6651 

7 

26289.2 

26280.2 

99.9657 

8 

68018.0 

67996.0 

99.9677 

9 

9555-95 

9481.54 

99.4505 

10 

21722.5 

21624.4 

99.5484 

11 

1^2070.2 

40942.8 

97.3202 

12 

7101.57 

7091.12 

99.8528 

15 

4360.07 

4518.65 

99.0500 

11* 

3099.44 

2967.26 

95.7555 

15 

3771.99 

5767.94 

99.8926 

16 

8625.54 

8488.55 

98.4525 

17 

2687.95 

2022.88 

75.2575 

18 

2866.65 

2840.25 

99.0790 

19 

1708.67 

1505.49 

88.1089 

20 

7556.80 

7511.71 

99.6580 

21 

5266.59 

5242.64 

99.2729 

22 

5057.08 

2975.21 

97.2565 

23 

1558.70 

1264.37 

82.1715 

21; 

1596.69 

1577.22 

98.6060 

25 

761.712 

684.915 

89.9175 

26 

146.218 

143.535 

98.1651 

27 

1151.00 

1019.02 

88.5554 

28 

2552.64 

2295.22 

98.5958 

29 

1098.28 

1042.07 

94.8820 

30 

1480.54 

1405-56 

94.8005 

31 

1516.16 

1425.51 

95.8892 

32 

899.946 

752.157 

85.5758 

33 

614.965 

451.014 

75.5400 

3U 

8178.49 

8075.90 

98.7456 

55 

5216.55 

4875-82 

95.4559 

MEAN 

95.2759 

+ 

STANDARD  DEVIATION 

+      7.0420 

MEAN 

(OMIT   17,25,32,55) 

97.4271 

+ 

STANDARD  DEVIATION 

+      5.4254 
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TABLE    U. 

CURVE 

FITTING   RESULTS 

TOTAL 

TPA 

INTEGRATED 

QUANTITATIVE 

PERCENTAGE 

PEAK 

AREA    (COUNTS) 

AREA    (COUNTS) 

(TPA  *100 /TOTAL) 

1 

72541.9 

71688 

99.0961 

2 

39290.6 

59059 

99.3596 

3 

31975.4 

51915 

99.8173 

4 

17656.4 

17536 

98.1854 

5 

14537.1 

14185 

98.9391 

6 

52724.9 

32159 

98.2707 

7 

26289.2 

26551 

100.235 

8 

68018.0 

67881 

99.7986 

9 

9533.95 

9517 

99.8222 

10 

21722.5 

21568 

98.5680 

11 

42070.2 

40215 

95.5902 

12 

7101.57 

7590 

104.061 

13 

4560.07 

4420 

101.375 

14 

5099.44 

2859 

92.2424 

15 

3771.99 

5986 

105.674 

16 

8625.54 

8514 

98.7297 

17 

2687.95 

1667 

62.0175 

18 

2866.65 

2765 

96.4540 

19 

1708.67 

1320 

77.2551 

20 

7556.80 

7173 

97.7674 

21 

5266.59 

3238 

99.I5O8 

?? 

5057.08 

3010 

98.4600 

23 

1558.70 

1566 

88.7762 

24 

1596.69 

1782 

127.587 

25 

761.712 

956 

122.881 

26 

146.218 

160 

109.426 

27 

1151.00 

869 

75.4996 

28 

2532.64 

2177 

93.5278 

29 

1098.28 

1219 

110.992 

30 

1480.54 

1248 

84.2956 

31 

1516.16 

1248 

82.5132 

32 

899.946 

489 

54.3566 

33 

614.965 

290 

47.1575 

34 

8178.49 

7458 

90.9459 

35 

5216.55 

3866 

MEAN 

74.1154 

95.7798 

+  STANDARD 

DEVL^lTION 

+   16.4712 

MEAN 

(OMIT    17,25,, 

32,55) 

97.7421 

+   STANDARD 

DEVIATION 

+   11.5100 
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area,  but  with  a  greater  margin  for  error  and  with  less  precision. 
This,  however,  was  to  be  expected  since  the  original  data  included  an 
uncertainty  in  not  only  the  boundary  channel  locations,  but  the  contents 
of  these  channels  as  well. 

The  accuracy  of  the  TPA  method  was  verified  by  comparing  the  TPA 
peak  areas  to  the  partial  integrated  areas,  which  were  calculated  from 
the  same  boundaries.   The  55  values,  listed  in  Table  X,  had  an  average 
of  100.0  +  15.9%.   Removal  of  the  four  problem  values  led  to  an  average 
of  100.3  +  ll-^°/».   These  results  indicated  that  the  TPA  peak  areas  de- 
termined from  the  smoothed  digital  data  were  representative  of  the  true 
area  enclosed  by  the  chosen  boundaries,  within  the  limits  of  the  un- 
certainty created  by  the  scatter  present  in  the  digital  data. 

All  of  the  above  results  indicated  that  the  peak  search  routines 
utilized  in  this  research,  together  with  the  TPA  method  of  quantitation, 
offered  a  fast,  accurate  method  for  the  data  reduction  of  Ge(Li)  spectra. 
The  curve  fitting  technique  provided  an  excellent  means  for  obtaining 
more  accuracy  when  desired  and  time  permitted.   For  routine  analysis, 
however,  the  direct  reduction  of  the  digital  data  yielded  rapid,  accurate 

results. 

Liver  Analysis 

The  application  of  the  proposed  system  to  the  analysis  of  bio- 
logical materials  was  demonstrated  by  the  quantitative  determination  of 
four  elements  of  bovine  liver.   The  sample  was  Standard  Reference  Material 
1577,  obtained  from  the  National  Bureau  of  Standards  in  the  form  of  a 
dry  powder.   The  method  of  standard  addition  was  chosen  to  insure  a 
constant  matrix  effect  in  all  of  the  samples. 
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TABLE  X 

CURVE 

FITTING  RESULTS 

PARTIAL 

TPA 

INTEGRATED 

QUANTITATIVE 

PERCENTAGE 

PEAK 

AREA  (COUNTS) 

AREA  (COUNTS) 

(TPA*100/PARTDVL) 

1 

72255 . 6 

71688 

99.2419 

2 

59267.4 

59059 

99.4184 

3 

51919.8 

51915 

99.9850 

4 

17594.6 

17556 

98.5502 

5 

14245.1 

14185 

99.5921 

6 

52615.5 

52159 

98.6010 

7 

26280.2 

26551 

100.269 

8 

67996.0 

67881 

99.8509 

9 

9481.54 

9517 

100.574 

10 

21624.4 

21568 

98.8145 

11 

40942.8 

40215 

98.2224 

12 

7091.12 

7590 

104.214 

15 

4518.65 

4420 

102.547 

14 

2967.26 

2859 

96.5515 

15 

5767.94 

5986 

105.787 

16 

8488.55 

8514 

100.502 

17 

2022.88 

1667 

82.4072 

18 

2840.25 

2765 

97.5506 

19 

1505.49 

1520 

87.6791 

20 

7511.71 

7175 

98.1029 

21 

5242.64 

5238 

99.8569 

22 

2975.21 

5010 

101.257 

23 

1264.57 

1566 

108.058 

24 

1577.22 

1782 

129.591 

25 

684.915 

956 

156.660 

26 

145.555 

160 

111.471 

27 

1019.02 

869 

85.2780 

28 

2295.22 

2177 

94.8495 

29 

1042.07 

1219 

116.979 

30 

1405.56 

1248 

88.9167 

51 

1425.51 

1248 

87.6706 

52 

752.157 

489 

65.0147 

53 

451.014 

290 

64.2995 

54 

8075.90 

7458 

92.1012 

55 

4875.82 

5866 

MEAN 

79.5217 

97.9572 

+  STANDARD  DEVIATION 

+  15.9599 

MEAN 

(OMIT  12,25,52,55 

100.282 

+  STANDARD  DEVIATION 

+  11.5695 
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Two  samples  of  pure  liver  were  initially  irradiated  for  five 

minutes  and  one  hour,  respectively,  at  a  neutron  flux  of  approximately 

12  2 

10   neutrons/cm  /sec.   Since  the  longer  irradiation  time  did  not 

produce  any  new  peaks  upon  immediate  analysis,  the  shorter  time  was 

chosen  for  the  experiment  to  reduce  the  total  activity  and  allow 

immediate  handling  of  the  samples. 

Figures  66  and  67  show  two  views  of  an  irradiated  liver  sample, 
and  Table  XI  lists  the  significant  peaks.   Both  spectra  had  a  full 
scale  energy  range  of  2.385  MeV.   Figure  66  is  a  plot  of  the  untreated 
data  and  has  a  full  scale  ordinate  value  of  4095  counts.   Figure  67 
shows  the  same  spectrum  after  the  contents  of  each  channel  had  been 
multiplied  by  a  factor  of  4.8.   This  was  done  to  highlight  the  regions 
of  low  activity  and  still  keep  the  largest  peak  on  scale. 

All  samples  were  counted  directly  in  the  irradiation  vials,  which 

were  made  of  Nalgene  and  supplied  by  the  Nalge  Company.   Blank  spectra 

41 
contained  only  the  1.294  MeV  Ar   peak,  produced  from  the  air  trapped 

inside  the  vials  during  irradiation.   Since,  as  Figure  67  shows,  this 

41 

Ar   photopeak  was  completely  resolved,  no  blank  correction  was  per- 
formed on  any  of  the  sample  spectra. 

_         .1.x      J_  j_ 

Standard  aqueous  solutions  of  CI  ,  Mn   ,  K  ,  and  Na  were  prepared 
from  high  purity  LiCl,  metallic  Mn,  K  Co   and  Na  CO,,  obtained  from 
the  Alpha  Products  division  of  the  Ventron  Corporation.   Because  of 
the  limited  size  of  the  reactor  port  only  two  irradiation  vials  could 
be  placed  side  by  side  in  the  reactor.   Therefore  in  order  to  main- 
tain the  assumption  of  a  constant  neutron  flux,  only  six  samples  could 
be  Irradiated  simultaneously.   From  a  knowledge  of  the  total  activity 
of  the  previously  irradiated  samples  the  experimental  sample  size  was 
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TABLE  XI 
SIGNIFICANT  PEAKS    IN  AN    IRRADIATED  LIVER  SAMPLE 


ENERGY 

HALF-LIFE 

CHANNEL 

(KeV) 

ISOTOPE 

(MINUTES) 

kk2 

511.0 

a 

- 

730 

8U6.7 

Mn 

-   56 

151+.56 

1113 

1295.8 

Ar 

-   1+1 

110 

1177 

1568.1+ 

Na 

-   21+ 

900 

1511 

152U.7 

K 

-   1+2 

71+1+ 

1U12 

16!f2.7 

CI 

-   58 

57.5 

lh2k 

1656. 6*' 

CI 

-    58 

57.5 

1489 

1752.1'^ 

Na 

-  21+ 

900 

1556 

•     1811.2 

Mn 

-   56 

151+.56 

1862 

2167.6 

CI 

-   58 

37.5 

1927 

221+1+ 

— 

_ 

Annihilation  peak 
Single   escape   peak 

Q 

Double  escape  peak 


206 
chosen  to  be  0.1-0.2  grains.   This  ensured  that  the  total  activity  of 
the  irradiated  samples  did  not  prevent  immediate  handling  of  the 
samples. 

Four  samples  were  used  in  each  of  the  chlorine  and  managanese 
experiments,  five  for  potassium,  and  six  for  sodium.   Because  of  the 
dilute  nature  of  the  manganese  standard  a  pure  sample  was  included  as 
a  check  against  error.   Two  pure  samples  were  included  in  each  of  the 
potassium  and  sodium  runs  to  demonstrate  the  precision  of  the  overall 
technique . 

The  dry  liver  was  weighed  directly  into  the  irradiation  vials. 
The  samples  were  ordered  according  to  their  weight,  and  the  larger 
samples  received  the  least  amount  of  standard  in  an  attempt  to  equalize 
the  final  peak  areas.   When  two  pure  samples  were  included  the  largest 
and  smallest  were  chosen  to  further  demonstrate  the  reproducibility  of 
the  technique.   All  vials  were  then  heat  sealed  to  prevent  spillage. 
The  exact  experimental  conditions  are  listed  in  Tjble  XII. 

The  samples  were  counted  directly  in  the  irradiation  vials  to 
eliminate  transfer  errors.   Chlorine  samples  were  counted  for  three 
minutes  live  time  and  all  others  for  five  minutes  live  time.   All  samples 
were  counted  at  a  distance  of  at  least  six  inches  from  the  face  of  the 
detector  to  eliminate  any  errors  due  to  surface  effects.   This  distance 
was  varied  for  each  run  to  insure  a  maximum  dead  time  of  57,,  for  any 

sample . 

Peak   detection  method   two  was   used   on   smoothed   data    to   obtain   the 
peak  boundaries.      Both  a    total   peak  area   and  a   nine-point  Wasscn  area 
were   calculated.      The    quantitative   areas   and   the  values   of   standard 
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TABLE  XII 
EXPERIMENTAL  CONDITIONS  FOR  THE  LIVER  AN..\LYSIS 


ELEMENT 

SPECTRUM 

ENERGY 

RANGE    (KeV) 

SAMPLE 

NUMBER 

SAMPLE 
WEIGHT 

AMOUNT  OF 
STANDARD 
ADDED    (ug) 

RELATIVE 
DECAY   TIKE^ 
(MINUTES) 

CI 

0-2383 

1 
2 
3 
1* 

0.1973 
0.1895 
0.171+7 
0.1729 

330.80 

661.61 

926.25 

1190.89 

8.258 
15-850 
22.625 
31+. 21+2 

Mn 

0-1883 

I 
2 

3 
k 

0.1951+ 
0.11+31+ 
0.11+02 
0.1577 

0 

0.991+5 
2.9855 
3.9780 

10.375 

17.535 
52.275 

1+0.150 

K 

0-1598 

1 
2 

3 
k 

5 

0.111+1 
0.2022 
0.161+1 
0.1578 
0.1520 

0 
0 

712.17 

11+21+.  34 
2670.61+ 

2.616 
10.166 

18.583 
25.858 

55-855 

Na 

0-1598 

1 
2 

5 
k 
5 
6 

0.1050 
0.1859 
0.1566 
0.1560 
0.1552 
0.1278 

0 

0 

152.32 
580.80 
555.12 
685.1+1+ 

2.575 
9.808 
16. 91+1 
21+.  166 
52.791 
1+0.71+1 

The  midpoint  of  the  count  time  relative  to  the  starting  time 
of  the  first  count. 
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added  were  corrected  for  decay  and  varying  sample  size  according  to 
the  equations  introduced  in  the  theory  section.   The  final  experimental 
results  are  listed  in  Tables  XIII  and  XIV  and  are  displayed  in  Figures 
68-73. 

The  actual  concentrations  of  manganese,  potassium,  and  sodium  were 
certified  by  the  National  Bureau  of  Standards  (N3S) ,  based  on  the 
results  of  six  to  tvjelve  determinations  by  two  independent  methods.   In 
the  case  of  potassium  and  sodium  the  results  included  a  homogeneity  test 
performed  on  28  samples.   Both  sodium  and  potassium  were  analyzed  by 
flame  emission  spectrometry  (homogeneity  test)  and  neutron  activation 
analysis  (NAA) ,  while  manganese  was  analyzed  by  atomic  absorption  spec- 
trometry and  IL\A.   A  value  for  chlorine,  based  on  NAA  results  alone,  was 
reported  but  not  certified. 

Reduction  of  activation  analysis  data  at  the  National  Bureau  of 
Standards  was  performed  on  a  Univac  1108  computer,  using  the  computer 
program  ALSPIS  written  by  Yule  (83).   The  reduction  algorithm  located 
peak  boundaries  by  using  the  first  derivative  values  determined  by  the 
Savitsky  and  Golay  (f;l)  convolution  technique.   The  constants  for  both 
a  quadratic  and  cubic  polynomial  were  used,  and  several  checks  were  per- 
formed on  the  peaks  to  insure  that  complete  resolution  had  been  achieved. 
After  locating  the  peak  boundaries  the  total  peak  area  method  was  used 
to  determine  the  peak  area. 

The  final  NBS  certified  concentrations  were  obtained  by  giving 
approximately  equal  weight  to  the  experimental  results  of  the  two  in- 
dependent methods  of  analysis.   Table  XV  lists  the  JvBS  results  from 
each  of  the  reported  methods,  the  final  certified  concentrations,  and 
the  experimental  results  obtained  in  this  research  for  each  of  the 
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ADJUSTED 


ELEMENT 

SAMPLE 

NUI-BER 

STANDARD 
ADDED    (uR/gra) 

ADJUSTED   TPA 
AREA    (COUNTS) 

ADJUSTED  WAS SON 
AREA    (COUNTS) 

ci( 

PK 

1) 

1 
2 

3 
4 

1676.64 
5491.55 
5301.95 
6887.74 

14725.4 

22275.5 
28195.5 

55626.7 

15992.7 
21037.8 
26055-8 
51484.7 

C1(PK 

2) 

1 
2 

3 
4 

1676.64 
5491.55 
5501.95 
6887.74 

14902.7 
25I8I.2 
50254.8 
55945.6 

15951.5 
19228.9 
25807.2 
50570.0 

Mn( 

PK 

1) 

1 
2 

3 
4 

0 
6.9551 
21.2803 
28.8889 

24505 . 6 
42359.3 
78379.4 
98521.9 

25157.2 
40624.2 
74669.8 
94965.7 

Mn( 

PK 

2) 

1 
2 

3 
4 

0 
6.9551 

21.2805 
28.8889 

2648.9 

5851.5 

9661.4 

11981.6 

2432.2 

4692.5 

7825.1 

10242.6 

K 

1 
2 

5 
4 
5 

0 
0 

4559.8 

9026.2 

17570.0 

11711.2 

11588.5 
16669.4     . 
21455.4 
51904.4 

9347.9 

9446.1 

14351.0 

18209.1 

27851.0 

Na 

1 
2 

5 
4 
5 
6 

0 

0 

1115.08 
2800.00 
5945.20 
5565-58 

95799 
95588 
141512 
212746 
256675 
521762 

8I5I5 
79897 
120374 
179981 
214908 
258415 

TABLE  XIV 
RESULTS   OF   THE   LIVER  ANALYSIS 
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ESTIMATED 


ELEMENT 

#  DATA 
POINTS 

SLOPE 

Y-INTERCEPT 
(COUNTS) 

X- INTERCEPT 

ERROR 
(M8/8m) 

C1(PK  1) 
TPA 
WAS SON 

4 
4 

3-59560 
5.29550 

9111.05 
8836.71 

-  2555.55 

-  2681.45 

+ 
+ 

155.004 
179.514 

C1(PK  2) 

TPA 

WAS SON 

4 
4 

5.69397 
5.20265 

9555.88 
8441.81 

-  2581.47 

-  2635.90 

+ 
+ 

560.955 
128.851 

Fm(PK  1) 
TPA 
WAS SON 

4 
4 

2552.04 
2463.85 

24408.4 
25I8O.4 

-  9.56427 

-  9.40825 

+ 
+ 

0.13087 
0.55764 

Mn(PK  2) 
TPA 
WAS SON 

4 
4 

511.618 
260.047 

5082.15 
2585.10 

-  9.89073 

-  9.94090 

+ 
+ 

1.67827 
1.28762 

K 

TPA 
WAS SON 

5 
5 

1.15026 
1.05825 

11504.9 
9417.2 

-  10002.0 

-  9070.5 

+ 

+ 

286.646 
416.687 

Na 

TPA 

WAS SON 

6 

6 

41.9956 
53.4440 

94458.4 
82116.8 

-  2248.77 

-  2455.35 

+ 

+ 

51.5570 
87.9728 

Figure  68.   Plot  of  the  total  peak  area  (open  circles)  and 
Wasson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for 
the  analysis  of  chlorine.   The  peak  areas 
were  obtained  from  the  I.6U5  MeV  CI  -  58  peak 
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Figure  69.   Plot  of  the  total  peak  area  (open  circles)  and 
V7asson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for 
the  analysis  of  chlorine.    The  peak  areas 
were  obtained  from  the  2.16S  MeV  CI  -  58  peak 
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Figure  70.   Plot  of  the  total  peak  area  (open  circles)  and 
Wasson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for 
the  analysis  of  manganese.    The  peak  areas 
were  obtained  from  the  0.3^+7  MeV  Mn  -  56  peak 
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Figure  71.   Plot  of  the  total  peak  area  (open  circles)  and 
Wasson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for 
the  analysis  of  manganese.   The  peak  areas 
were  obtained  from  the  1.811  MeV  Mn  -  56  peak 
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Figure  72.   Plot  of  the  total  peak  area  (open  circles)  and 
Wssson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for 
the  analysis  of  potassium.   The  peak  areas 
were  obtained  from  the  1.525  MeV  K  -  h2   peak 
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Figure  75.   Plot  of  the  total  peak  area  (open  circles)  and 
Wasson  area  (closed  circles)  vs.  the  amount 
of  standard  added  to  the  liver  samples  for  the 
analysis  of  sodium.   The  peak  areas  were 
obtained  from  the  I.568  MeV  Na  -  2\   peak 
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TABLE   XV 

EXPERIMENTAL  A^fD  NATIONAL  BUREAU  OF    STANDARDS 

RESULTS   OF   THE  ANALYSIS   OF    STANDARD  REFERENCE 

MATERIAL    1577    (BOVINE   LIVER) 


NATIONAL  BUREAU  OF    STANDARDS 
RESULTS      (ua/gni') 


ELEMENT 


CI 


Mn 


Na 


METHOD    1 


NAA 


CERTIFIED 


2610+   90 


11.2+0. I*-     9.96rt0.85      10.5+1.0 


9820+500  9600+600   9700+600 


2ltOO+100     21+60+   70        21+50+150 


EXPERIMENTAL 
RESLT.TS      (uK/om) 

METHOD^        VALUE 

T-1 
W-1 
T-2 

W-2 

251*0+150 
2680+180 
2580+560 
26U0+130 

Mean 

T-1 
W-1 
T-2 
W-2 

2610+110 

9.56+0.15 

9.1+1+0.51+ 
9.89+1.68 
9.9I++I.29 

Mean 

T-1 
W-1 

9.70+0.51+ 

10000+290 
9070+1+20 

Mean        951+0+250 

T-1  2250+   50 

W-1  21+60+   90 


Mean        2550+   50 


Atomic  absorption  spectrometry  for  Mn  and  flame  emission 
spectrometry  for  K  and  Na 

Neutron  activation  analysis 

"Based  on  the  combined  results  of  method  1  and  NAA 


T-1  =  total  peak  area  method,  first  peak 
W-1  =  Wasson  method,  first  peak 
T-2  =  total  peak  area  method,  second  peak 
W-2  =  Wasson  method,  second  peak 


22  i^ 
four  elements  examined.   Since  the  reduction  algorithm  used  by  NBS  was 

similar  to  that  used  in  this  research,  the  lower  NAA  results  reported 
by  NBS  for  both  manganese  and  potassium  could  have  resulted  from  the 
problem  illustrated  by  peak  B  in  Figure  26,  which  was  earlier  discussed 
in  detail.   The  experimental  values  from  this  research  were  means  of  all 
results  obtained  by  both  the  TPA  and  Wasson  method.   The  means  were  cal- 
culated from  four  values  for  chlorine  and  manganese  and  from  two  values 
for  potassium  and  sodium.   The  approximate  error  limits  on  the  mean 
results  were  calculated  by  assuming  that  the  variance  of  each  individual 
result  could  be  obtained  from  the  mean  square  deviation  calculated  by 
the  linear  least  squares  method. 

Both  the  16^6.7  and  2167.6  KeV  chlorine  peaks  were  analyzed,  and 
the  peak  areas  were  found  to  be  approximately  equal.   For  both  peaks  the 
TPA  method  yielded  results  smaller  than  the  reported  NBS  concentration 
while  the  Wasson  method  yielded  results  that  were  larger.   However  each 
of  the  four  experimental  results  fell  within  the  reported  uncertainty 
of  the  NBS  value,  and  the  experimental  mean,  as  shown  in  Table  XV, 
agreed  with  the  NBS  value  to  the  three  significant  figures  reported. 

In  the  manganese  determination  both  the  3^6.7  and  1811.2  KeV 
peaks  v?ere  analyzed,  but  the  higher  energy  peak,  as  seen  from  Figure 
67  (channel  1556),  was  much  smaller  and  was  nearly  buried  in  the  base- 
line scatter.   All  four  experimental  results  were  smaller  than  the 
certified  NBS  value,  but  all  fell  within  the  reported  uncertainty  of 
this  concentration.   The  results  obtained  from  the  smaller  peak  were 
larger  in  value,  and  the  estimated  error  ranges  were  considerably 
larger  due  to  the  small  peak-to-noise  ratio  of  this  peak.   The  exper- 


225 

imental  mean  was  well  within  the  uncertainty  limits  of  the  NBS  cer- 
tified concentration  and  was  5.8%  smaller  in  absolute  value.   When 
compared  to  the  NBS  value  obtained  from  NAA  results,  however,  the  ex- 
perimental mean  v;as  only  2. 6%  smaller  in  absolute  value. 

The  two  potassium  results  straddled  the  NBS  certified  value. 
The  TPA  value  was  large  but  fell  v;ithin  the  reported  uncertainty 
limits.   The  Wasson  value  was  small,  had  a  greater  uncertainty,  and 
fell  outside  the  error  range  of  the  certified  concentration.   From  the 
plot  in  Figure  72  it  is  apparent  that  the  major  deviation  from  the 
linear  least  squares  fit  occurred  in  the  three  points  which  were  ob- 
tained from  spiked  samples.   The  two  experimental  points  from  pure 
samples  were  close  in  absolute  value  and  showed  little  deviation  from 
the  fitted  line.   This  suggested  that  some  of  the  apparent  error  in 
the  results  may  have  been  introduced  by  the  experimental  technique  used 
to  add  the  standard  solution  to  the  samples.   While  the  experimental 
mean  was  1,67c,  smaller  than  the  certified  NBS  concentration  it  was  only 
O.67o  smaller  than  the  NBS  value  obtained  from  N-i^A  results. 

In  the  sodium  determination  the  certified  value  again  fell  between 
the  two  experimental  results.   In  this  case,  however,  the  Wasson  value 
was  large  but  within  the  reported  uncertainty  limits.   The  TPA  result 
was  small  and  fell  outside  of  the  uncertainty  limits  of  the  NBS  certi- 
fied concentration. 

Figure  75  and  Table  XII  show  that  the  two  pure  samples  had  little 
difference  in  their  adjusted  peak  areas  and  showed  little  deviation 
from  the  fitted  curves.   The  deviation  from  the  fitted  curves  by  the 
spiked  samples,  however,  supported  the  possibility  that  the  spiking 
technique  may  have  introduced  much  of  the  error  found  in  the  final  ex- 
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perimental  results.   As  before,  the  mean  value  fell  within  the  re- 
ported uncertainty  of  the  NB3  concentration  and  was  only  5-57«  smaller 
than  this  certified  value. 


APPENDICES 


APPENDIX  I 
CORE  RESIDENT  SOFTWARE 
The  following  is  a  computer  printout  of  the  software  used  in 
this  research.   The  programs  are  written  in  assembly  language  and  the 
printout  includes  a  listing  of  the  location  and  octal  value  of  each 
instruction. 
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/ADC  y.OSinOh         DAVID  P.  COTTHELL    FIVAL  VERSION 

/COMPLETE  PROGhA_M  LISTINGS  FOh  HIGH  PhECIblJM 
/DATA  ACQUISITIQNJ  A.MD  DATA  KEDUCTIJnJ  FOR 

/MEUTRONJ  ACTIVATIO^J  AMALYSIS DOES  MOT 

/TMCLUDE  DEC'S  FLOATING  PO I  \J  T  PACKAGE 


/VARIABLE  LOCATIONS  ! 

i    POI NITERS  CPAGE  0) 

*1 

0001 

5135 

JMP  I^TRUP 

/EMTER  IMTERRUPT  COMTRJL 

0002 

0000 

FPD, 

0 

0003 

0000 

0 

0004 

0000 

0 

0005 

7400 

IMPUT. 

7430 

/POINJTER  TO  F.P.  IMPUT 

0006 

7200 

OUTPUT, 

7230 

/POIMTER  TO  F.P.  OUTPUT 

0007 

5603 

FP, 
IRGEi, 

5630 

/POIMTER  TO  FLOATIMG  POT 

0010 

3000 

I  i.  1  0  , 
IhLOC, 

0 

0011 

0003 

IRU, 
IRPK. 

0 

0012 

0000 

I R 1  2  , 

0 

0013 

0000 

IKPUT, 

0 

00^4 

0000 

IRSTOR, 

0 

0015 

0000 

I  R  1  5  . 

0 

0016 

QQ00 

IRDATA, 

0 

0017 

0030 

ADPMTR, 

0 

0020 

0000 

FPA, 

0 

0021 

0000 

0 

0022 

0000 

0 

0023 

0300 

FPB, 

0 

002A 

0000 

0 

0025 

0003 

0 

> 

0026 

0000 

FPC, 

0 

0027 

0300 

0 

0030 

3033 

CM  TEH, 
FPTEM^, 

0 

0031 

0000 

L0C31, 
CMSTPT, 

0 

0032 

0000 

L0C32, 

GETDAT, 

LFTBDY, 

0 

0033 

0000 

L0C33, 

0 

250 


PAGE  0002 


0034  0000 


0035  0000 


0036  0000 


0037  0000 


CKSUM, 

C>JT, 

COU\JT, 

L0C3A, 

FIMAL, 

LSECSW, 

>J  PEAKS, 

L0C35, 

I.MDEX, 

MDAIPT, 

PEAKST, 

L0C36, 

IMDX, 

LINJE» 

^5PTSP1, 

MPilGHT, 

OBLCT» 

L0C37» 


*65 


0065  0000 


0066  0000 


0067  0000 


0070  0000 


007  1  0000 


LEFT, 

.VLI.MES, 

PKLEFT, 

MPTS, 

STKTMl, 

L0C65, 

LI.NJDEX, 

MAX, 

PIMDEX, 

PKMX, 

PTEMP, 

TEMPI, 

L0C66, 

PKHT, 

RIGHT, 

L0C67, 

OUTTAP, 

L0C78, 

LDPTMS, 

TAPE>J, 

L0C71 , 


0 


/LOCATIJ^Jb  7  3  S  7  1  ARE 
/KESEHVED  EXCLUSIUELY 
/FOR  THE  LIP.  GEM. 


PAGE  0033 
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/CONJSTAMTS  S  POIVTEHS  CPAGE  0) 


0072  360Q  AhEA, 


0073 

037^ 

0075 

0076 

0077 

0100 

0101 

0102 

0103 

010^ 

0105 

0106 

0107 

01  10 

01  1  1 

01  12 

01  13 

01  1^ 

01  15 

01  16 

01  17 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0187 

0153 

0131 

0132 

0133 

0134 


0301 

0013 

0387 

0003 

0304 

0307 

4400 

2251 

2400 

6600 

2471 

2333 

3357 

2313 

4466 

4200 

7663 

7777 

7773 

2132 

1600 

0236 

1000 

3200 

2231 

2553 

0214 

2370 

2270 

0253 

2105 

1  120 

0600 

1127 


CI  , 
C13, 

C27, 

C3, 

C4, 

C7, 

CHKPKS, 

DIFF, 

D>JOISE, 

DNJOHM, 

FIX. 

FLOAT. 

FPSTOh, 

GET, 

G:^JOISE, 

MAGTPE, 

MSPECF. 

Ml  , 

X5, 

PKTEbT, 

SCDSY, 

SEK. 

SICO>J, 

SYOOTH, 

SPPKNJT, 

STAhT. 

STKTCH, 

STORPK, 

SUBTHC, 

TEH. 

TEST, 

TYCi-., 

TYPST. 

TY5P. 


PKAREA 

1 

13 

27 

3 

4 

7 

PKSHCH 

DI  F 

S\'OISE 

6630 

FFIX 

FFLOAT 

FSTOHE 

GGET 

MWMOIS 

SETUP 

-120 

-1 

-5 

PKTST 

SSCDSY 

SR 

1000 

SMOTH 

SPPhT 

CFP  +  3 

214 

SAVEPK 

SUETR 

Tn 

COMPAh 

TTYCP. 

630 

TTYSP  • 


/PEAK  AhEA  CALCuLATI3>J 


/2NJD  PEAK  SEAhCH  ROUTIME 
/MOVIMG  POI^JT  DIFFEhE^J  riAL 
/NJOISE  DETEHMINJATIJXI 
/F.  P.  MOKMALIZATI  JvJ 
/FLOATIMG  TO  FIXED 
/FIXED  TO  FLOAT  I ''JG 
/STOKE  F(AC)  INJ  COKE 
/DATA  FETCH  &  FLOAT 
/SETUP.  MOISE  DETEKMI^JATIO^J 
/SETUP,  MAG.  TAPE  OUTPUT 
/hAMGE  FOh  DM0 1 SE 


/TEST  FOP.  VALID  PEAK 
/DISPLAY 

/STORAGE  ROUTIME 
/S. P.  DECIMAL  IMPUT 
/LEAST  SQUARES  SMOOTH 
/S.P.  OUTPUT  THROUGH  F.  P. 
/LOC  FOR  PK.  SER.  STPIMG 
/I  ST  CHA.MvJEL  I  ^J  PK.  SEARCH 
/STORE  PEAK  BOU\]DARIES 
/D.P.  SUBTRACT  I OM 
/TERM I MAT  IMG  ROUTIME 
/PK.  HT.  COMPARISON  TEST 
/TYPE  C.R. /L. F. 
/MESSAGE  STRIMG  PRIMT 
/TYPE  A  SPACE 


/IMTERRUPT  COMTROL  ROUTIME 


0135 
0136 
0137 

0140 


6201 
7420 

5530 

6001 


INJTRUP, 


0141  6534 

0142  5520 


I  TER 


CDF 

S-M  L 

jyip 

lOM 

6534 

JMP  I  SER 


/IS  LIMK  ZERO? 

/YES,  GO  TO  TEr.M.  ROUTIME 

/MO,  TURM  INJTERRUPT  OM 

/CLEAR  ADC 

/GO  TO  STORAGE  ROUTIME 
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/CLEAi.  CJ..E,  DECIDE  OM 
/R  BEGIM  DATA  STORAGE 


PhlMTDUr* 


0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0210 
021  I 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0230 
0231 
0232 
0233 
0234 
0235 


7340 

3310 
6676 
30  34 
621  1 
3410 
2334 
5235 
6201 
1367 
4533 
6031 
5213 
6036 
6046 
6041 
5217 
0373 
7650 
5233 
1363 
3130 
4773 
1370 
4533 
6001 
7320 
1362 
3130 
5227 


ADC, 


COLECT, 


MOPRT, 


*200 

CLL  CLA  CMA 

DC A  IR10 

6676 

DCA  CMT 

CDF+10 

DCA  I  IK10 

IS?,  C^JT 

JXP.  -2 

CDF 

TAD 

JMS 

KSF 

JMP. 

KHB 

TLS 

TSF 

J>1P. 

^Xi  D 

SMA 

jr-ip 

TAD 
DCA 

jys 

TAD 
JMS 
lOM 
CLA 
TAD 
DCA 
JMP 


MAGI 

I  TYFST 

-1 


-1 

CI 

CLA 

\JOPKT 

CTR 

TER 

I  STPRT 

MAG2 

I  TYPST 

STL 
CHLT 
TER 
COLECT 


/REXOVE    C3NJFLICTIMG 
/INTERRUPT    REQUEST 
/A.NJD    CLEAR    CORE 


/"PRIM  TOUT?' 


/IMPUT 
/ECHO 


Y    Or.  M 


/SET  INTERRUPT  EXIT 
/ADDRESS  FOR  MO  PRIMTOUT 
/IMIT.  PRIMTOUT  PARAMETERS 
/••START  TIMER  TO^' 
/"  STORE  DATA" 
/UAIT  FOR  TIMER 
/SET  LINJK  FOR  INTERRUPT 
/SET  IMTERRUPT  EXIT 
/ADDRESS  FOR  PRINTOUT 


/STORAGE  ROUTIME 


0236  7  133  SR, 


CLL 


0237 

62  1  1 

CDF+13 

0240 

6531 

6531 

024  1 

5240 

JMP. -  1 

0242 

6536 

6536 

0243 

7304 

RAL 

0244 

3337 

DCA  L0C37 

0245 

2437 

ISZ  I  L0C37 

0246 

5237 

JMP  SR+1 

0247 

2337 

ISZ  L0C37 

0253 

2437 

ISZ  I  L0C37 

0251 

5237 

JMP  SR+1 

0252 

5237 

JMP  SR+1 

/CLEAR  LIMK  FOR  IMTERRUPT 

/CHECK  ADC  FLAG 

/READ  ADC  IMTO  AC »  THEM 
/CLEAR  ADC  FLAG 

/IMCREME^JT  PROPER  CHAnIMEL 

/mo  overflow, 
/overflov.  occurred 
/injcrememt  for  overflow 
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PAGE 

0005 

0fi53 

730J 

0X5-^ 

1334 

0^55 

1364 

0256 

7420 

0257 

5255 

026a 

137  1 

0261 

7440 

0262 

1364 

0263 

3336 

0264 

1036 

0265 

7041 

02  6  6 

1034 

0267 

1  1  15 

0270 

3037 

/INjlilAL    bFl'uV    FJi.    DAir    /^hI\'lJUT 


Th- 


CLL 

CLA 

TAu 

CvT 

TAD 

C5 

b^L 

jyp. 

-2 

TAD 

y.4 

b7,A 

TAD 

C5 

OCA 

IvJLF.X 

TAD 

JMDEX 

CIA 

TAD 

CNJT 

TAD 

ys 

DCA 

L I  \'  F 

/>JKu  2AGF.  bETUH 


027  1  1366  PAGEh.   TAD  .YAGDbH 


0272 
0273 
0274 
0275 


4533 
4765 
137  2 

3065 


JXb 
TAD 

DCA 


I  TtPbi 
I  HEADEr. 
M62 
NjLIMEb 


/>]F'.v  LI^JE  bPTUH 


0276  1036  P2^.I^Jf.  TAD  I^DEA 


027  7 

0  303 
0301 
0302 
0303 
0334 
0305 
0306 
0307 
0310 
031  1 


1115 

3336 
1337 
1364 
30  37 
137  7 
3262 
1337 
4523 
4534 
4534 


TAD 
DCA 
TAD 
TAD 
DCA 
TAD 
DCA 
TAD 

jy.b 


y5 

JNJDFX 

LI^JF 

C5 

LI^JF 

C4 

62 

LI^F 

I     SFPhvJT 

I     rtbp 

I     IrSP 


/I^JIT.     *     PS-:.    LI  \if-     5 
/LI\'E    CJUNJ  lb:.b 


/b    Ci./Lt-'b,     13    DASHPS 

/Pi.I>Jl     PALE    HLADEh 
/I^JIl.     *    LlvJP.b    i-hi.    PAGE 


/hE-INJIT.     *     PFi-.  LI\JF.    C\Jrn 

/DFTEi:yI^JF    >J>-"XT  LIME    * 

/4    DIGIT    OUrPU'i  H  Ji.yAT 
/P.^K'l     LIMF    # 
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/DATA  PHIMTOUT  THROUGH  FLOAT  IMG  POIMT  OUTPUT 


0312  103-^1  PhDATA,  TAD  CMT  /PKIMT  DATA  IM 

0313  7  10^  CLL  P.AL  /CUKhEMT  CHAM  MEL 

0314  3066  DCA  PTEYP 

0315  681 1  CDF+10 

0316  l'^66  TAD  I  PTEMP 

0317  3046  DCA  46 

0320  2366  I SZ  PTE.MP 

0321  1466  TAD  I  PTEMP 

0322  3945  DCA  45 

0323  6201  CDF 

0324  1075  TAD  C27 

0325  3044  DCA  44 

0326  4407  JX5  I  FP 

0327  7000  FMOK 

0330  0000  FEXT 

0331  1100  TAD  C7  /7  DIGIT  OUTPUT  FOhXAT 

0332  3062  DCA  62 

0333  4406  JMS  I  OUTPUT     /PhlsJT  DATA 

0334  2034  ISZ  CMT  /IMCREMEMT  TO  M EXT  CHAMMEL 

0335  1034  TAD  CMT  /PASSED  CHAMMEL  2047(10)? 

0336  7510  :.PA 

0337  5351  JMP  LASTPG       /YES 

0340  1035  TAD  FIMAL        /M0»  PASSED  FIMAL  CHAMMEL? 

034  1  7740  SMA  SZA  CLA 

0342  5351  JMP  LASTPG       /YES 

0343  2036  ISZ  IMDEX        /M0»  FIMISHED  LIME? 

0344  5312  UMP  PhDATA       /MO 

0345  4532  J>5S  I  TYCR       /YES 

0346  2065  ISZ  MLIMES       /FIMISHED  PAGE? 

0347  5276  JMP  PPhlMT       /MO 

0350  527  1  UMP  PAGER        /YES 

/OUTPUT  FOR  LAST  PAGE 

0351  7300  LASTPG.  CLL  CLA  /SKIP  SOCIO)  LIMES 

0352  1372  TAD  M62 

0353  3066  DCA  LIMDEX 

0354  4532  JMS  I  TYCR       /TYPE  CR. /L.F. 

0355  2066  ISZ  LIMDEX 

0356  5354  JMP. -2 

0357  7402  CEMD,    HLT  /TEKMIMATE  PROGRAM 

/DATA  PRINTOUT  WITHOUT  STORAGE 

0360  4773  PTOMLY,  JMS  I  STPRT      /IMITIALIZE  PARAMETERS  S 

0361  5253  JMP  TR  /EEGIM  DATA  PRIMTOUT 
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/VAhlAPLES 
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0362 
0363 
0364 
0365 
0366 
0367 
0373 
0371 
337  2 
0373 


0357 
0253 
3005 
043-^ 
0557 
34  74 
05C5 
7774 
7716 
0403 


CHLT, 

CTK. 

C5» 

HEADEK, 

MAGDSH, 

XAG  1  , 

.YAG2, 

M4, 

M62, 

STPHT, 


CEMD 

Th 

5 

HEDEK 
ADC5 

i.uC  1 

ADC2 
-4 
-62 
STPT 


/ADDhESS  OF  HLT  CJMMANJD 


/IMITIALIZE  DATA  PMnJTGUT  AMD  HEADEh  PAhAYETEhS 


0400 

0401 

0432 

0403 

0404 

0405 

0406 

0437 

0410 

04  1  1 

0412 

0413 

0414 

0415 

0416 

0417 

0423 

0421 

0422 

0423 

0424 

0425 

042  6 

0427 

0430 

0431 

0432 

0433 


0300 

7300 

1255 

4533 

4521 

3334 

1256 

4533 

4521 

7041 

3035 

4223 

141  1 

4533 

4521 

3412 

2066 

5214 

5603 

3003 

7300 

1  1  15 

3366 

1257 

3011 

1266 

3012 

5623 


STPT, 


HDHGLI 


I>JITAL, 


*430 
0333 
CLL  CLA 


TAD 
JVS 

jyis 

OCA 
TAD 
JXb 
JMS 
CIA 
DCA 
JMb 
TAD 
JMS 
JMS 
DCA 
ISZ 

jy.p 
JMP 

0030 
CLL  CLA 


MAG  3 

I  TYPST 

I  bIC0>3 

CNJT 

MAG4 

I  TYPST 

I  SICO^J 


FINJAL 
I>JITAL 
I  I  r.  1  1 
I  TYPST 
I  SIC3\] 
I  I  h  1  2 
PIMDEX 
HDRGET 
I  STPT 


TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
JMP 


M5 

PIMDEX 

START  1 

Ihll 

STAhT2 

Ihl2 

I    i:\irr AL 


/"I^JITIAL    CHAMMEL    = 


/"FINJAL    CHA^JMEL    = 


/PRIMT    HEADEK    MESSAGE 

/READ    IM    APPhOPKIATE    # 

/STORE    *'S    IM    SThl.NJG 

/FINISHED? 

/MO 

/YES»     EXIT 

/INITIALIZE    CMTR'S 

/FOR    HEADER 


/EXIT 
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/PhlMT 

HEADER 

0^34 

0303 

UEDEh., 

0300 

/PRINJT  HEADER,  UITH  *' 

0435 

7326 

CLA 

STL  RTL 

/2  DIGIT  OUTPUT  FORMAT 

0-^36 

3062 

DC  A 

62 

0437 

4223 

ij.'.  ^ 

IMITAL 

0440 

1411 

PKT. 

TAD 

I  IHl  1 

/PhlNJT  HEADER  MESSAGE 

0441 

4533 

JXS 

I  TfPST 

0442 

1412 

TAD 

I  I  h  1  2 

/PRINJT  APPROP.  HEADER 

0443 

3045 

DCA 

45 

/THROUGH  P.P.  OUTPUT 

0444 

5046 

DC  A 

46 

0445 

1G74 

TAD 

C13 

0446 

3044 

DCA 

44 

0447 

4406 

jy\s 

I  OUTPUT 

0450 

2066 

isz; 

PIMDEX 

/FINISHED? 

0451 

5240 

JMP 

PRT 

/SiO 

0452 

141  1 

TAD 

I  IR:  1  1 

/YES,  PRIMT  LAST 

0453 

4533 

JMS 

I  TYPST 

/HEADER  MESSAGE 

0454 

5634 

JMP 

I  HEDER 

/EXIT 

/VARIABLES 


0455 

0530 

MAG3, 

ADC  3 

0456 

0544 

MAG  4, 

ADC4 

04  57 

0457 

START  1, 

• 

0460 

1150 

HEDER 1 

0461 

1  164 

HEDER2 

0462 

0760 

HEDER 3 

0463 

0766 

HEDER4 

0464 

0766 

HEDER4 

0465 

0770 

HEDER5 

0466 

3466 

START2, 

• 

0467 

0000 

0 

0470 

0000 

0 

0471 

0000 

0 

0472 

0000 

0 

0473 

0000 

0 

2j57 
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/MESSAGE  SlhlM 

GS 

0-^7^1  0015 

ADC1»    0015 

0475  3012 

00  12 

0A76  QQ12 

0012 

0477  2022 

2022 

0500  1116 

1116 

0501  2417 

2417 

0502  2524 

2524 

0503  7740 

7740 

0504  0001 

0001 

0505  0015 

ADC2,    0015 

0506  0012 

0312 

0507  0012 

0012 

0510  2324 

2324 

0511  0122 

0122 

0512  2440 

2440 

0513  2411 

2411 

0514  1535 

1505 

0515  2240 

2240 

0516  2417 

2417 

0517  4023 

4023 

0520  2417 

24  17 

0521  2205 

2205 

0522  4004 

4004 

0523  0124 

0124 

0524  0100 

0100 

0525  1500 

1500 

0526  1200 

1200 

0527  0100 

0100 

0530  0015 

ADC3.    0015 

0531  0012 

0012 

0532  1116 

1116 

0533  1124 

1124 

0534  1101 

1101 

0535  1440 

1440 

0536  0310 

0310 

0537  0116 

01  16 

0540  1605 

1605 

0541  1440 

1440 

0542  7540 

7540 

0543  0001 

000  1 

0544  0015 

ADC4,    00  15 

0545  0012 

0012 

0546  0611 

0611 

0547  1601 

1601 

0550  1440 

1440 

0551  0310 

0310 

0552  0116 

0116 

0553  1605 

1605 

0554  1440 

1440 

0555  7543 

7540 

0556  0001 

0001 

FOh    ADC    r^O\JITOh 

/C.  h. 

/L. F.     TVICE 

/"PhlMTOUr?    •• 


/ENJD    MESSAGE 

/C.K. 

/L. F.     TklCE 

/"STAhT  TIMER  TO" 
/"  STORE  DATA" 


/C»  R. 
/L.  F. 

/EMD    MESSAGE 

/C.  h. 

/L.  F. 

/'•IMITIAL    CKANJNJEL 


/ENID    MESSAGE 
/C.K. 

/L.  F. 

/"FI.sJAL    CHA^JNJEL 


/E\)D    MESSAGE 
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0010 

0557 

0015  ADC5, 

0015 

0560 

0012 

0312 

0561 

0012 

0012 

0562 

0312 

0012 

0563 

3312 

0012 

056^ 

03  12 

0012 

0565 

0012 

0012 

0566 

0012 

0012 

0567 

0312 

0012 

0570 

5555 

5555 

0571 

5555 

5555 

0572 

5555 

5555 

0573 

5555 

5555 

057-^ 

5555 

5555 

0575 

0031 

0001 

/C.K. 

/L.  F.     6    TIMES 


/E>JD   MESSAGE 
/>5ESSAGE    STKINJGS    FOH    HEADER 


/C.  K. 

/L.  F.     h    TIMES 


♦  1  150 

1  150 

0015 

HEDERl , 

0315 

1151 

0012 

0012 

1  152 

0012 

0012 

1153 

0012 

0012 

1154 

0012 

0012 

1  155 

2320 

2320 

1156 

3  50  3 

0533 

1157 

2422 

2422 

1  163 

2515 

2515 

1  161 

4075 

4075 

1  162 

4000 

4033 

1163 

0130 

0100 

11  64 

4043 

HEDEi.2, 

4040 

1  165 

4324 

4024 

1  166 

0123 

0120 

1167 

0540 

J54J 

1  170 

7  54  0 

7  540 

1  171 

0031 

0001 
♦  760 

0760 

4343 

HEDEr.3» 

4340 

0761 

4034 

4004 

0762 

0124 

3124 

07  63 

0540 

0540 

0764 

7240 

7  240 

0765 

3301 

0001 

0766 

57  30 

HEDEr.4. 

5703 

0767 

0100 

0100 

0770 

0015 

HEDEhS. 

GO  15 

0771 

0312 

0012 

0772 

3312 

0312 

0773 

0012 

0012 

0774 

0012 

3312 

3775 

003  1 

0001 

/"SPECTHUM    =    " 


/ENJD    MEbbAGE 
/"  TAPE    =    •• 


/ENJD   MESSAGE 


DATE    :    " 


/ENJD    MESSAGE 

/EMD    MESSAGE 

/C.R. 

/L.  F.     4    TIMES 


/E^JD  MESSAGE 


239 


PAGE  031 1 


/DIGIiAL  8- 
/CHAkACTEh 


P.Q-U    (XODIFIh.D) 
ST-KIMG  TYPE-OUT 


/MODIFIED  FOr.    USE  k  I TH  DBC  '  S  ADC  XO^'ITOk 


/CALL  i'JITH  STi^JNJG 
/ALL  CODES  MAY  BE 
/JiETUh>J    FOLLO'/.'IMG 


ADDhESS    Tv] 
DEVELOPED 
THE    JMS 


ACJ 


0603  0000 
06G1  3262 
0602  3264 


TYPSTG, 


*638 

0000 

DC A  TEMQ 
DCA  FLAG 


/PKOCEoS  THE  SThlMG 


/STOKE 
/CLEAr. 


I  ^J  I  T I  AL 
FLAG 


ADDhESS 


0603  1662  TSCCl,   TAD  I  TEXQ 


0  604 
06Q5 

060  6 
0637 
0610 

061  1 
0612 
0613 


0614 
0615 
0616 
0617 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0630 


7012 
7312 
7  3  12 
4214 
1662 
4214 
2262 
5203 


HTh 
KTP 
RTH 
J^S 
TAD 
JMS 
ISZ, 
JXP 


TSCC2 
I  TEMQ 
TSCC2 
TEMO 
TSCCl 


/PICK  UP  DATA 
/hOTATE  6  BITS  KI  GHT 


/TYPE  FIPST  CHAHACTEH 
, /PICK  UP  DATA 
/TYPE  SEC3MD  CHAhACTER 
/IvJCi.EXEvJT  STORAGE  ADDhESS 
/GO  BACK  FOk  .MOKE 


/CHECK  FOh  OUTPUT  CODES  5  OUTPUT  A  CHAKACTEH 


0000  TSCC2,   0000 


0265 
3263 
12  64 
7640 
5231 
1263 
7  4  50 
52  2  7 
42  50 
5614 
2264 
5614 


A>JD  K77 


/MASK  OFF  6  BITS 


TYPAT 


DCA 

TAD 
SZA 
JMP 
TAD 

SJA 
JMP 
JMS 
JMP 
ISZ 
JMP 


TEMK 

i-LAG 

CLA 

TYPSP 

TEMh 

.  +3 

TYPE 

I  TSCC2 

FLAG 

I  TSCC2 


/SAVE 
/TEST 


CHAKACTEh 
"SPECIAL" 


FLAG 


/SET:  TYPE  SPECIAL 

/SiO:    hEGULAh  CHA.^ACTER 

/IS  IT  ZF.hDl 

/YES:  SET  FLAG 

/.\]0:  r-KIMT  I  r 

/hETUh>J 

/SET  "SPECIAL"  FLAG 

/HETUhM 
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/SPECIAL  CHARACTER  ROUT 

IME 

0631 

3864 

TYPSP. 

DCA 

FLAG 

/CLEAR  "SPFCIAL"  F 

0632 

1863 

TAD 

TEXR 

/TEST  FOR  "0" 

0633 

7 'J  4  I 

CIA 

0634 

7453 

S.N!  A 

0635 

588  5 

JYiP 

TYPAT 

/G:  TYPE  ".^'■ 

0636 

7301 

I  AC 

/TEST  FOR  01 

0  637 

7  650 

S.NJA 

CLA 

0640 

5873 

JMP 

MODIFY 

/YES:  EXIT 

0641 

1271 

TAD 

SKIPMA 

/ALTER  I.-'J  STRUCT  I  O>0 

0  64  2 

3252 

DCA 

SWITCH 

/TO  BE  "SMA" 

0  64  3 

1263 

TAD 

TEMn 

/TYPE  CHAi-.ACTER 

0644 

4250 

JXS 

TYPE 

0645 

1272 

TAD 

SKIPPA 

/ALTEk  I;vJ  STRUCT  I  OM 

0646 

3252 

DCA 

Sv.ITCH 

/TO  BE  "SPA" 

0  64  7 

5614 

JXP 

I  TSCC8 

/RETUR:nJ 

/TYPE    A    CHARACTER 


0653 

0000 

TYPE, 

0000 

0651 

1866 

TAD  .M4  0 

/COMPARE  v. 

0652 

7510 

SWITCH, 

SPA 

/OR  SMA  FO 

0653 

1267 

TAD  C100 

0654 

1270 

TAD  C240 

0655 

6046 

TLS 

0656 

634  1 

TSF 

0657 

5856 

JMP  .  -  1 

0  660 

7800 

CLA 

0661 

5650 

JMP  I  TYPE 

/RETUH'^J 

/CONJSTAMTS  A\]D  TEMPOi 

■.Ai^.Y  REGISTEF.S 

0662 

0000 

TEMQ, 

0 

/COMTAIMS 

0  663 

0000 

TEXR, 

0 

/CO^JTAIMS 

0664 

0000 

FLAG, 

0 

/"SPECIAL" 

0665 

0077 

K7  7, 

7  7 

0666 

7  7  40 

M40, 

-40 

0  667 

0100 

C1O0, 

100 

6670 

0240 

C240, 

24  0 

0671 

7500 

SKIPMA, 

SMA 

0  67  2 

7510 

SKIPPA, 

SPA 

ITH  40 

R  SPECIAL  CODES 


STRING  ADDRESS 
6  BIT  CHARACTEh 
FLAG 


/MODIFICATIO^J  FOR  USE  V;ITH  INTERRUPT 


0673  6042  MODIFY,  TCF 

0674  5600  JMP  I  TYPSTG 


/CLEAR  TTY/PU^JCH  FLAG 
/EXIT 
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/DIGITAL  8-{i8-U-ASCI  I  OjODIFIED) 

/SKvcLE  PhEClJlOM  DECIMAL  ISiPVT    FhOM  KEYEOAr.D 

/MODIFIED  FOR  USE  WITH  DBC ' S  ADC  MOMITOK 

/CALL IMG  SEGUENJCE:  J>'S  SICOMV 

/ACC  IGMOHED,  RETUhM  '.vITK  EIMARY  WORD  IM  ACC 


+  1000 

1000 

0000 

SI  COW, 

0003 

1001 

7300 

CLA  CLL 

1032 

1276 

TAD  SI  SET  1  +1 

/IvJITIALI^.E  SI- ITCHES 

1003 

3232 

DC A  SI  CTRL 

10G4 

127  6 

TAD  SISETI  +1 

100  5 

322^ 

DC A  SIXSWl 

10G6 

3312 

DCA  SI  HOLD 

1007 

3313 

DC  A  SINJEGI 

/CLEAR  ME6ATIVE  SWITCH 

1010 

52  57 

jyp  SIM PUT 

/EEGIM  INJPUT 

/PROCESS  THE  CHARACTER 


101 1 

3311  SIPROC, 

DCA 

SI  SAVE 

1012 

1311 

TAD 

5ISAVE 

1G13 

130  3 

TAD 

SIRBUT 

1014 

7450 

S>JA 

1015 

52  0  1 

JMP 

SI  COM  V 

1016 

1304 

TAD 

SIM260 

1017 

7510 

SPA 

1020 

5232 

JMP 

SICTRL 

1021 

1305 

TAD 

SIX271 

1022 

7740 

S>5A 

S?;A  CLA 

1023 

5232 

j:v^p 

SICTi.L 

102A 

7  300  SIXSWl, 

CLA 

CLL 

1025 

1231 

TAD 

.  +4 

1026 

3224 

DCA 

.  -2 

1027 

124  5 

TAD 

SI  MM BR 

1030 

3232 

DCA 

SICTRL 

1031 

5245 

JMP 

SIMMER 

1032 

7300  SICTRL. 

CLA 

CLL 

1033 

131  1 

TAD 

SI  SAVE 

103-^ 

1306 

TAD 

SIMSPC 

1035 

7450 

SMA 

1036 

5275 

JMP 

SISETI  • 

1037 

1307 

TAD 

SI MPLS 

1040 

7450 

SMA 

1041 

5276 

JMP 

SISETI  • 

1042 

1310 

TAD 

SIMMMS 

1043 

7650 

SMA 

CLA 

1044 

5275 

JMP 

SISETI 

1045 

5266 

JMP 

S  I  EM  D 

/SAVE  IT  BEFORE  PROCESSIMG 

/IS  IT  A  "BACK-ARROlv"? 
+  1    /rES,  RElNJITI  ALIZE 

/IS  IT  LESS  THAM  260? 
/YES,  SEE  '.'.HAT  IT  IS 

/IS  IT  Gh.EATER  THAM  27  1? 
/YES,  SEE  WHAT  IT  IS 
/MO,  1ST  CHAR.  WAS  DECIMAL 
/CLOSE  SWITCH  TO  "SIMMBR" 

-1    /SET  TE}-.  CHAR.  SUITCH 


/COMTIMUE  CHECKIMG 


/IS  IT  A  SPACE? 
+1    /YES 

/IS  IT  A  "PLUS"? 
+1    /YES 

/IS  IT  A  MIMUS? 

/YES 

/MO,  IT  WAS  A  TER.  CHAR. 
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/UPDATE  THE  CURREMT  ASSEMBLED  ^UY.BER 


1046 
1347 
1050 
1051 
1352 
1053 
10  54 
10  55 
1056 


1  3  1  P 
7  10  6 
1312 
7  034 
3312 
131  1 
0302 
1312 
3312 


SIM.ViBH. 


TAD 
CLL 
TAD 
PAL 
DCA 
TAD 
A  >J  D 
TAD 
DCA 


SIHOLD 

hTL 

SIHOLD 

SIHJLD 
SI  SAVE 
SI>jASK 
SIHOLD 
SIHOLD 


/MULTIPLY  CUhhENJT 
/ASSEMBLED  #  BY  1 0 


/PICK  UP  C  UHK E>J  T  D I  C- 1  1 
/MASK  OFF  THE  H.O.  BI'l 
/ADD  TO  ASSEMBLED  # 
/STOhE  BACK  l^i    SIHOLD 


/I^JPUT  S  ECHO  hOUTIME 


1057 

6031 

SIMPUT, 

KSF 

/i-.EAD  TTY  KEYBOARD 

1060 

5257 

JMP 

.  -1 

1061 

6036 

Kf;R 

1062 

634  6 

TLS 

/ECHO  I>JPUT 

1063 

604  1 

TSF 

1064 

52  63 

JMP. 

-1 

1065 

521  1 

JMP 

SIPI.OC 

/TEhMI>JATIMG  hOUTI^JE 

1066 

7300 

S I  EM  D , 

CLA 

CLL 

1067 

1313 

TAD 

SINJEGI 

1070 

7010 

HAii 

/PUT  MEG.  SWITCH  I M TO  L 

1071 

1312 

TAD 

SIHOLD 

1072 

74  30 

SZL 

/MEGATIVE  #? 

1073 

7341 

C/A 

I  AC 

/YES»  COMPLEMENT 

1074 

5600 

JMP 

I  SICO-^JV 

/MO,  EXIT 

/hOUTIME  TO 

SET  NJEGATIVE  S  TEhMI^J  ATI  NJ  G  SVITCHFS 

1075 

2313 

SISETl, 

ISZ. 

SIvJEGl 

/SET  MEGATIVE  SV.  ITCH 

1076 

7  333 

CLA 

CLL 

1077 

124  5 

TAD 

SIMMBH  -1 

/SET  TER.  CHAR.  SWITCH 

1  100 

3232 

DCA 

SI  CTRL 

1  101 

5257 

JMP 

SI\!PUT 

LIMK 


/COMSTAMTS  A-M  D  VARIABLES 


1  102 

0017 

SIM ASK. 

17 

1  103 

7441 

SIRBUT, 

-337 

1104 

0057 

SIM260, 

57 

1105 

7767 

SIM271. 

-11 

1106 

7540 

SIMSPC, 

-240 

1107 

7  7  65 

SIMPLS, 

-13 

1113 

7776 

SIMMMS, 

-2 

111  1 

<2000 

SISAVE. 

0 

1112 

0333 

SIHOLi., 

•J 

1113 

0030 

SIMEG1» 

0 

/CODE 

FOi.  ERASE 

/i    TO 

GEs!.     CODE 

"263" 

/i     TO 

GEM.  CODE 

"271" 

/CODE 

FOR  SPACE 

/^    TO 

GEM.  CODE 

"253"  C+) 

/*  TO 

GEM.  CODE 

"255"  (-) 
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/DIGITAL    8-I5/-U    OiODIFIED) 
/TELETYPE    OUTPUT    PACKAGE    CPOhTIONJS) 

/MODIFIED    FOR    USE    V/I'iK    DBC'S    ADC    .XO\)ITOf-: 

/TYPE    C. H. /L. F. 


*11£3 


1  120 
1  121 
1  182 
1  123 
1  124 
I  125 


BO00 
7300 
13^13 
A33A 
1342 
4334 


TTYCh 


1  125  5720 


'J 
CLL 

CLA 

TAD 

C0215 

/GET  ASCII 

FOH 

JMS 

OTY 

/TYPE  THIS 

TAD 

C0212 

/GET  ASCII 

POK 

J>iS 

OTY 

/TYPE  THIS 

J>5P 

I  nrch 

/KETUkM 

C.h 


L.  F. 


/TYPE  A  SPACE 


1  127 
1  133 
1  131 
1  132 
1  133 


0200 
7  300 
1344 
4  334 
57  27 


TTYSP, 


0 

CLL 

TAD 

JMS 

JMP 


CLA 

C0240 

OTY 

I  TTYSP 


/GET  ASCII 
/TYPE  THIS 
/ivETUivNJ 


FOh  A  SPACF 


/OUTPUT  A  TELETYPE  CHAr.ACTER 


1  1  34 
1  135 
1  136 
1  137 
1  140 
1  141 
1  142 
1  143 
1  144 


0030 
634  6 
604  1 
5336 
7  303 
5734 
0212 
0215 
024  0 


OTY, 


C0212, 
C0215» 

C024v>, 


0 

TLS 

TSF 

JMP. 

CLL 

J.MP 

212 

215 

240 


-1 
CLA 
I  OTY 


/KETUKM 


/CORHECTIOaIS  to  DEC'S  FLOATI>JG  POIMT  PACKAGE 
/TO  i.EPLACE  +  v.nH  A  SPACE,  AMD  TO  MAKE  PRIxJT 
/LOOP  COMPATIBLE  WITH  DDC * S  ADC  MOMITOK 


7333 
7334 


0240 
0015 


7352  6046 

7353  6041 

7354  5353 


*7333 

240 

15 

*7352 

TLS 

TSF 

JMP.  -  1 

/REPLACE    +    HTH    SPACE 
/CORRECTION]    FOR    -    SIG.M 


/REVERSE    PRINIT    LOOP 
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/ivDTATK    UPPEi:    COKE    O^JCF     TO    LEFT    (MULTIPLY    PY    ;?). 
/ROUTI>JE    F.\1DS    AT    A    HLT.       PhESS    CO^JTIViUE    TO    LEVEL 
/ANJD    PLOT    hOTATED    DATA.       LOAD    ADDhESS    A'JD 
/HESTAKT    TO    r.OTATE    AGAI\'. 

*1800 

1200  7  301    hOTUP,  CLL    CLA    I  AC 

12G1  3031  DCA    L0C31 

1202  3032  DCA  L0C3& 

1203  6211  CDF+10 

1204  1432  }.EPET»  TAD  I  L0C32      /ROTATE  S;  hESTOhE 

1205  7  134  CLL  KAL  /L.  0.  VOP.:D 
1236  3432  DCA  I  L0C32 

1207  1431  TAD  I  L0C31      /hOTATF  S  i.FSTOf.F. 

1210  7  004  KAL  /H.O.  V.Oi-.D 

1211  3431  DCA  I  L0C31 
1^12  2031  ISZ  L0C31 

1213  2331  ISZ  L0C31 

1214  2032  IbZ    L0C32 

12  15  2032  157.  L0C32  /FIXUSHED  ALL  DATA? 

1216  5234  j::p  KEPET  /^J0 

12  17  6201  CDF  /YES 

1220  7402  HLT  /V;AIT  FOK  PP.OGh.AMMEr: 

/LEVEL  DOUPLE  PKECISIO\i  DATA  IM  UPPER  CORE  BY 
/PUTTIMG  A  7777C6)  INi  THE  L.O.  WORD  OF  EACH 
/DATA  POIMT  THAT  EXCEEDS  SINJGLE  Pi-.ECISIOM. 


1221 

7301 

LEVEL* 

CLL 

CLA  I  AC 

1222 

3034 

DCA 

COU^T 

1223 

621  1 

RFPETl , 

CDF+10 

1224 

1434 

TAD 

I  COU\-T 

1225 

74  50 

S.NJA 

1226 

5234 

j:v5p. 

+  6 

1227 

7340 

CLL 

CLA  CM A 

1230 

1034 

TAD 

COUX^T 

1231 

3032 

DCA 

L0C32 

1232 

7  340 

CLL 

CLA  CMA 

1233 

3432 

DCA 

I  L0C32 

1234 

6231 

CDF 

1235 

2334 

ISZ 

COUNiT 

1236 

7410 

SXP 

1237 

5642 

JMP 

I  PLOT 

1243 

2334 

ISZ 

CO  u:\iT 

1241 

5223 

JMP 

REPETl 

1242 

141  1 

PLOT, 

EOUNJDS 

/IS  (H.O.  WORD>>Q? 

/\'0,  LEAVE  DATA  AS  IS 
/YES,  PUT  77  77(6) 
/I\l  L.O.  t.JRD 


/FI>JISHED  ALL  DATA? 

/MO 

/YES,  PLOT  IT 
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/hOTATE    UPPE^.    COhE    O^JCE    TO    hlGHT     (DIV/IDE    bY    fc; ) . 
/hOUn.NjE    EMDS    AT    A    HLT.        PhEbS    CJMTI^UE    TJ    LEVEL 
/AMD    PLOT    KDTATED    DATA.        LOAD    ADDhESb    ANID 
/iiEbiA:.!     TO    r.OTATE    AGAInJ. 

1243  46A6  KOTDW.M.     JM5    I    hOTDM  /ROTATE    UPPEK    COKE    DOV.nI 

19AA  7432  HLT  /VAIT    FOh    PhOGHAMMEh 

1245  58^1  JMP  LEVEL 

1246  1443  HOTD.M,   hOTAT 

/HOUTi:\iE    TO    ADJUST    PLOTTEIi    OUTpiJT    FJr.    LOV.EST 
/AMD    HIGHEST    DESIhED    SETTINGS.        BY    PPiESSI^JG 
/COMTI>JUE    THE    COSITE.NJTS    OF    "PE^JLv."    ^    "PKAiHGH" 
/'.■-ILL    ALTEhNJATELY    BE    DISPLAYED    0\J    THE    PLOTTER. 

1S47  7  303  PE^JLO'v.  ,  CLL  CLA 

1250  1260  TAD  PEMLW        /ZERO  PLOTTER  PE.NJ 

1251  6562  6562 

12  52  7402  HLT  /WAIT  FOR  PROGRAMMER 

1253  7330  PENJHI,   CLL  CLA 

1254  1261  TAD  PEMHGH  /FULL  SCALE  PLOTTEP.  PE>J 

1255  6562  6562 

1256  7402  HLT  /WAIT  FOR  PHOGRAMyiER 
12  57  524  7  JMP  PflMLOW  /REPEAT 

12  60  0000  PE-NJLk.  , 

1261  7777  PEMHGH,  7777 
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/EOUTIME    TO    ROTATE    UPPEK    COKE    FhJ>5 
/DOUBLE    TO    bIMGLE    PKECIbIO:^J    TO 
/ALLOV:    DISPLAY    OM    A    SCOPE    0?.    PLOTTEH 

/CHECK    HIGH-OHDEh    PAi-.TS    OF    DATA    LOCAlIO\iS 
/IN]     UPPEh    COLE    A.^JD    hOTATE    E^JTIHF    COLE 
/INTIL    ALL    DATA    IS    SI^JGLF    PLECISIOnJ 


+  1400 

1^00 

7308 

ROTATE, 

CLL  CLA 

I'^Ol 

3015 

DC A  IH15 

1^.02 

621  1 

CDF+10 

1403 

1415 

FETCH, 

TAD  I  n.l5 

140/i 

7  44  0 

SZA 

1405 

5235 

JMP  ROT 

1406 

2015 

IS?.  IR15 

1407 

5203 

JMP  FETCH 

1410 

6201 

CDF 

/I 


H.O.     WORD=a? 


/.NJO,  ROTATE  UPPER  COl.E 

/YES,  FIMISHED  ALL  DATA? 

/MO 

/YES,  READY  FOR  SCDSY! 


/INJ  IT  J  ALIZ.ATI0^3    OF    BOUNJDnY 
/CHA^nJMELS    for    SCOPE    DISPLAY 


1411     1266    BOU^]DS,     TAD    MAG6 


14  12 

4553 

JXS 

I  TYPST 

1413 

452  1 

JMS 

I  SI  COM 

14  14 

7104 

CLL 

RAL 

1415 

7430 

SZL 

1416 

5237 

JMP 

ERROR 

1417 

3231 

DCA 

FIRST 

1420 

1267 

TAD 

MAG7 

142  1 

4533 

JMS 

I  TYPST 

1422 

4521 

JMS 

I  SICOM 

1423 

7  104 

CLL 

RAL 

14  24 

7430 

SZL 

1425 

5237 

JXP 

EnROR 

1426 

3232 

DCA 

LAST 

1427 

4532 

JYiS 

I  TYCa 

1430 

4517 

JMS 

I  SCDSY 

1431 

0000 

FIRST, 

1432 

0003 

LAST, 

0 

1433 

0002 

INJCMMT, 

2 

1434 

7402 

HLT 

1435 

4243 

ROT, 

JMS 

r.OTAT 

1436 

5200 

JMP 

ROTATE 

1437 

7  300 

ERROR, 

CLL 

CLA 

1440 

1270 

TAD 

MAG  6 

1441 

4533 

JMS 

I  TYPST 

1442 

5211 

JMP 

BOUMDS 

/"DISPLAY    FROM       " 

/IMPUT     1ST    CHAM MEL 

/ABOVE    LIMITS    OF     CORE? 
/YES,     TYPE    ERROR   MESSAGE 
/MO,     STOR.E    FO]-:    SCDSY 
/"       TO       " 

/IMPUT    FIMAL    CHAM  MEL 

/ABOVE    LIMITS    Or     CORF? 
/YES,     TYPE    EnROR    MESSAGE 
/\I0,     STORE    FOR    SCDSY 
/TYPE    C.R./L.  F. 
/JUMP    TO    DISPLAY 
/Fli'.ST    LOCATIOM     FOR    DISPLAY 
/LAST    LOCATIJM     FOh    DISPLAY 
/IMCREMEMT    FOR    SCD::.Y 


/"EXCEEDS    CORE    LIMITS, 
/"TRY    AGAIM" 
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/SUB/-.OUTINJE    TO    ROTATE    tvJTIKE    UPPEK    COKE    OF 
/DOUbLE    PKECISIO.\J    PACKED    DATA    O.MCE    TO    RIGHT 


14^)3 

0000 

ROT AT, 

0000 

l^-^^ 

7301 

CLL  CLA  I  AC 

14A5 

326^i 

DCA  HIGH 

1^146 

3265 

DC A  LOfc 

1^47 

621  1 

CDF+10 

1^50 

166^ 

HEPl  , 

TAD  I  HIGH 

/ROTATE  a  RESTORE 

1^15  1 

7  110 

CLL  ]-.AR 

/H.  J.  '.'.  JRD 

145R 

366-^1 

DCA  I  HIGH 

1^53 

1665 

TAD  I  LOt' 

/ROTATE  S  RESTORE 

145^ 

7010 

RAK 

/L.O.  'aORD 

1-^55 

3665 

DCA  I  LOW 

l-fiSG 

22  6/J 

ISZ  HIGH 

1^57 

226-^ 

ISZ  HIGH 

1^63 

2265 

is;',  low 

1A61 

2265 

ISZ  LOW 

/FINISHED  ALL  DAT, 

1A68 

5250 

JMP  REPl 

/MO 

1^63 

5643 

jy.P    I  ROT  AT 

/YES,  EXIT 

/VARIABLES 


14  6'!l 

0030 

HIGH, 

0 

1465 

0000 

LOW  , 

0 

1466 

147  1 

MAG  6, 

ROTl 

1467 

1504 

>^AG7, 

ROT  2 

1470 

1510 

MAG  8, 

ROT  3 
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/MESSAGE  STRINJGS  FOR  SCLSY 


1^7  1  0015  KOTl,    0015 

1A72  0012  0012 

1473  0012  0012 

1474  04  11  04  11 

1475  2320  2320 

1476  1431  1401 

1477  3140  3140 
1503  0622  0622 

1501  17  15  17  15 

1502  4040  4040 

1503  0001  0001 

1504  4040  K0T2.  4040 
150  5  24  17  24  17 

1506  4040  4040 

1507  0001  0001 

1510  0315  hOT3»    00  15 

1511  0012  0012 

1512  0312  0012 

1513  3533  0530 

1514  0305  0305 

1515  0534  0534 

1516  2340  2340 

1517  0317  0317 
1520  2235  2205 
152  1  40  14  4014 
1522  1115  1115 
15S3  1124  1124 

1524  2354  2354 

1525  4324  4024 

1526  2231  2231 

1527  4301  4031 

1530  0701  0701 

1531  1116  1116 

1532  0001  0001 


/C.  H. 

/L.V.     TWICE 

/"DISPLAY    Fi-.0>3 


/E\JD   MESSAGE 
/"       T3       " 


/ENJD    MESSAGE 

/C»K. 

/L.  F.     TWICE 


/"EXCEEDS    COhF    LIMITS, 
/"TRY    AGAI>J" 


/EMD   MESSAGE 
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/DISPLAY    r.OUTIvJE    FOR    PIITHEh    SCOPE    OR    PLOTTEH. 
/THIS    IS    A    SPECIFIC    UEhSlOsl.     WHICH    I  G:\JOJvS    THE 
/I.^GhEME>JT    SPECIFIED    l<i    THE    CALLI>JG    COMXAMD 
/AMD    EXECUTES    A    FIXED    I^ChE>iEgT    OF    TVO. 

/SET    PIT     11    OF    THE    SVITCH    hEGISTEh    TO    0    FOH    A 
/SCOPE    ADAPTABLE    DISPLAY    AMD    TO     1     FOP    A    PLOTTER. 

/THIS    KOUTIME    SHOULD    BE    E>]TEf.ED    WITH    THE    FIRST 
/LOCATIOM,     LAST    LOCATION],     AMD    IMCREMEsJT     IM     THE 
/FIRST,     SECOMD,    AMD    THIRD    POSITIOnJS    AFTEi-.    THE 
/CALLIMG    COXMAMD.        THE    IMCRFMFINJT    WILL    BE    IGMORED. 
/BUT    THIS    FORMAT    WILL    MAKE    THE    CALLIMG    COMMAMD 
/COMPATIBLE    WITH    THE    GEMERALI'/.ED    SCDSY    ROUTIME. 
/TO    EXIT    FROM    THE    ROUTINJE,     SET    BIT    3    0^     THE 
/SWITCH    REGISTER    TO     I     (APPLICABLE    OMLY    TO    SCOPE). 

/THE    DELAY    TIME    FOR    THE    PLOTTER    DISPLAY     (TO 
/GIVE    THE    PEM    TIME    TO    RESPOMD)     IS    COnJTROLLED 
/BY    TWO    DELAY    LOOPS.        THE    IMMER    LOOP    DELAYS 
/ABOUT    20    MILLISECOMDS    EETWEEM    POIMTS.        THE 
/OUTER    LOOP    CO^JTl-.OLS    THE   MUMBER    OF    TIMES 
/THE    IMMEk    LOOP    IS    EXECUTED.        THE    VARIABLE 
/"COUMTl",     FOUvID    IM    LOCATIOnI     161    OF    THE 
/APPROPRIATE    PAGE,     IS    THE   MEGATIVE    OF    THE 
/MUMBER    OF    TIMES    THE    IM^ER    LOOP    IS    EXECUTED. 

/DECISIOsi    SECTIO\i     FOR    SCOPE    OR    PLOTTER 

*i6y0 

1633  0000  SSCDSY,  0003 

1601  7303  CLA  CLL 

1602  7404  OSR  /CHECK  BIT  11 

1603  0262  AMD  C0301 

1604  7650  SMA  CLA  /SCOPE(S)  OR  PLOTTER(P)? 

160  5  5215  JIvJP.  +  lS 

1606  1267  TAD  VJMP          /PLOTTER,  MAKE  THE 

1637  5244  DCA  CHANJGl        /APPi-.OPRI  ATE  CKAMGES 

1613  1251  TAD  CHAM62+2 

161  1  3247  DCA  CHA_MG2 

1612  127  3  TAD  VMOP 

1613  3256  DCA  CHAMG3 

1614  5223  JMP.+7  /BEGIM  REGULAR  PROGRAM 

1615  1201  TAD  SSCDSY+1     /SCOPE,  MAKE  THE 

1616  3244  DCA  CHA.MGl        /APPROPRIATE  CHAMGES 

1617  1232  TAD  SSCDSY+2 

1620  3247  DCA  CHAMG2 

1621  1263  TAD  C6561 

1622  3256  DCA  CHAMG3 
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/BASIC 

SCDSY 

'    hOUTIME 

1623 

1600 

TAD 

I  SSCDSY 

162-^1 

7041 

CIA 

1625 

7040 

CJ^A 

1626 

3265 

DCA 

FLOC 

1627 

2230 

ISZ 

SSCDSY 

1633 

1630 

TAD 

I  SSCDSY 

1631 

7341 

CIA 

1632 

1265 

TAD 

FLOC 

1633 

7  13Q 

STL 

hA^. 

163^ 

3266 

DCA 

NJ  P  >J  T  S 

1635 

2200 

ISZ 

SSCDSY 

1636 

2203 

IS7. 

SSCDSY 

1637 

621  1 

CDF+10 

16'^0 

5252 

JMP 

IDSPLY 

16A1 

20  17 

DSPLY, 

IbZ 

ADPMTH 

16-^12 

14  17 

TAD 

I  ADPnITH 

1643 

6562 

6562 

1644 

0300 

CHANJGl, 

0 

1645 

2264 

ISZ 

C>J  TK 

1646 

5241 

J>^P 

DSPLY 

1647 

0000 

CHA.XJG2, 

0 

1653 

77  10 

SPA 

CLA 

1651 

52  60 

JMP 

EXIT 

1652 

1265 

IDSPLY, 

TAD 

FLOC 

1653 

33  17 

DCA 

adp:>jtr 

1654 

1266 

TAD 

NJ  pvJ  T  S 

1655 

3264 

DCA 

CnJTK 

1656 

0300 

CHA-MG3, 

0 

1657 

5242 

JMP 

DSPLY +1 

1660 

6231 

EXIT, 

CDF 

1661 

5600 

jy.p 

I  SSCDSY 

/GET  FILST  ADDKESS 


/GET  FI.MAL  ADDRESS 
/CALCULATE  #  J  F  LOCATIO.vJS 

/DIV.  BY  2  S  SA^E 

/IGxJOrl    SPECIFIED    InJCREXEvIT 
/IMCKE>jEMT    FOh    HETUKvI 


/SKIP    LNDFSIhED    LJCATIO^i 

/DISPLAY    A    DATA    PJIMT 

/•'CLA"(S)    OK    "J;-^?    DELAY"  CP) 

/FIJI  SHED? 

/^O 

/YES,     "OS}."(S)     Oh 

/"JMP    EXIT"<P) 

/hEIMITIATE    DISPLAY 


/"656r'(S)    On    "NJOP"(P) 


/EXIT 
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/VAr.IAELES 


1662 
1663 
166<^ 
1665 
1666 
1667 
1670 


0001 
6561 
0030 
000i3 
0003 
5271 
7000 


00001 , 
C6561 , 
CMTti, 
FLOC, 
MPMTS, 

^MOP, 


1 

c  o6  1 

0 

3 

0 

JMP  DELAY 

MOP 


/DELAY  SECTION  FJh  PLOTTER  OUTPUT 


1671 
167  2 
167  3 
157-^ 
1675 
167  6 
1677 
17  03 
1701 
1702 
1703 


7300 
1303 
3301 
2  302 
527^ 
2301 
5274 
52-^5 

0000 

0300 
7774 


DELAY, 


COUX'Tl  , 
C0U;vJT2, 
OUTEh, 


CLL 

TAD 

DCA 

ISZ. 

JMP. 

152: 

JMP. 

JMP 

0 

3 

-4 


CLA 
OUT  Eh 
COUvJTl 
C0UvJT2 
-1 

co^^n  1 

-3 
DbPLj'  +  4 


/KUM    THROUGH    IMMEK    LOOP 

/  F I  \il  S  H  ED    OUT  EH    LOO  P  ? 

/NJO 

/YES,    RETUP.V    TO    bCDSY 
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/IbT    PEAK    bEAhCH    hOUTI^E 

/PROGf.AM    TO    SEAr.CH    FOh    PEAKS    I ^J    A 
/SPECTnUM    AMD    DETE:.MI.^E    THE    *» 
/MAXIMUM,     ANJD    B3U'>]DhIE5    U5IMG    A 
/MO\/I>JG    pJI.^iT    DIFFEr.EMTIAL.       THIS 
/SEARCH    USES    A    MI>3IMUM    HEIGHT 
/ChlTEnIA    DM     THE    FlhST    MAX. 

/IMITIALIZATIQvJ    OF    UAr.IAELES 


♦  2000 

2003 

7  330    PKSEh, 

CLL 

CLA 

2331 

1356 

TAD 

CJMP 

20G2 

37  57 

DCA 

I     CHA\JG4 

2003 

3335 

DCA 

>J  PEAKS 

20O'!i 

33  37 

DCA 

MKIGKT 

2005 

1  12/1 

TAD 

START 

2006 

3336 

DCA 

PEAKST 

2007 

1336 

TAD 

PEAKST 

2310 

3012 

DCA 

li-.PK 

231  1 

1  1^5 

TAD 

STKTCH 

2012 

3034 

DCA 

COUnJT 

/SET    PEAK    PnlNjTOUT    TO    EXIT 
/TO    2\]D    PEAK    SEARCH 


/DETECTIO.NJ    OF    A    POSi^IBLE    LEFT    BOU>JDAKr 


2013 

/153R 

LFTDET 

,     JXS    I    DIFF 

/GET    DIFFERENTIAL 

201/1 

7753 

SPA    SMA    CLA 

/IS    IT>0? 

2015 

52  13 

JMP.  -2 

/NJO 

2016 

133/4 

TAD    C0U^JT 

/YES,     SAVE    LEFT    BOL^JDARY 

2017 

3065 

DCA    LEFT 

/DETEC 

TIOM     OF    A    POSSIBLE    PEAK    MAXIMUM 

2020 

/i532 

PKMAX, 

JMS     I     DIFF 

/GET    DIFFERENTIAL 

2021 

7720 

SMA    CLA 

/IS    IT    NJEGATIUE? 

2022 

5223 

JMP. -2 

/\J0 

2023 

133/4 

TAD    COU>JT 

/YES,     STORE    PEAK    MAX 

202/! 

3366 

DCA    MAX 

2025 

1360 

TAD    MINJHT 

/SET    G^JOISF    TO    FIND 

2026 

A506 

JMS     I     FLOAT 

/MIMHT  +  NJOISE 

2027 

0031 

FPTEMP 

2030 

/451  1 

JMS     I     GNJOISE 

/DETERMINE    NOISE    VALUE 

2031 

1365 

TAD    LEFT 

/SET    TEST    FOR    CMAX-LEFT) 

2032 

3307 

DCA    MI.NJENJD 

2033 

1366 

TAD    MAX 

203A 

3310 

DCA    SUBTRA 

2035 

/4531 

JMS    I    TEST 

/CMAX-LEFT)>-vIOISE? 

2036 

52  13 

JMP    LFTDET 

/NJO,     REJECT    AS    A    PEAK 
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/DETECTIO-\i  OF  A  POSSIBLE 

2037 

4532 

RTBET, 

vWS 

I  DIFF 

2340 

7713 

SPA 

CLA 

204  1 

5237 

JMP. 

.-2 

2042 

1034 

TAD 

COUMT 

2043 

3367 

DCA 

hIGHT 

2044 

1067 

TAD 

KIGHT 

2045 

3310 

DCA 

SJBTr.A 

2046 

4531 

JMS 

I  TEST 

2047 

5321 

JMP 

PKCHCK 

2350 

4502 

JMS 

I  DIFF 

2051 

7700 

SMA 

CLA 

2052 

5250 

JMP. 

.-2 

2053 

1034 

TAD 

COUMT 

2054 

3261 

DCA 

NJEV.'MAX 

2055 

1066 

TAD 

MAX 

2056 

3260 

DCA 

OLDMAX 

2057 

4527 

JMS 

I  SUBTHC 

2063 

0030 

OLDMA/I, 

3 

2061 

0333 

MEWMAX. 

0 

2062 

1021 

TAD 

FPA+1 

2063 

7750 

SPA 

SMA  CLA 

20  64 

5237 

JMP 

RTDET 

2065 

1261 

TAD 

MEWMAX 

2366 

3066 

DCA 

MAX 

2067 

5237 

JMP 

hTDET 

hIGHT    EOUMDARY 

/YES,     GET    DIFFEHEMTIAL 

/POSITIVE    YET? 

/NJO 

/YES.  SAVE  POSSIBLE 

/hIGHT  BOLNDAhY 

/SET  TEST  FOh  (RIGHT-LEFT) 

/(KIGHT-LEFT)>>JOISE? 

/M0»    TEST    FOh    VALID    PEAK 

/YES,     RIGHT    BOUNDARY 

/MOT    RETUKMED    TO    BASELIME, 

/FIMD    NJEXT    MAX 

/SAVE    THIS    POSSIBLE    MAX 

/SET    UP    COMPARISON]    OF    MAX'S 

/(MEUMAX-OLDMAX) 


/KEEP    LARGER    OF    2 
/AS    PEAK    MAX 


/SUBhOUTIME    TO    SAVE    VALID    PEAK    BOOMDARIES 


2070    0333    SAVEPK,     0000 


207  1 
2072 
2073 

2074 
2075 
2376 
2077 
2100 
2101 
2102 
2103 
2104 


1065 
3412 
1366 
3412 
2035 
1067 
3412 
1067 
71  10 
7341 
3037 
5673 


TAD 

LEFT 

DCA 

I  IRPK 

TAD 

MAX 

DCA 

I  IRPK 

ISZ 

MPEAKS 

TAD 

RIGHT 

DCA 

I  InPK 

TAD 

RIGHT 

CLL 

RAR 

CIA 

DCA 

MEIGHT 

JMP  I  SAVEPK 


/STORE  LEFT  BOUMDARY 

/STORE  PEAK  MAX 

/IMCREMEMT  #  OF  PEAKS 
/STORE  RIGHT  BOUMDARY 

/SAVE  LAST  VALID  RIGHT 
/BOUMDARY  FOR  COMPARISOM 


/EXIT 
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/SUBROUTI-NJE  TO  COMPAr.E  HEIGHT  JF  EITHEK  PEAK 
/MAXIMUM  Oh  hIGHT  BOQMDAhY  (RELATIVE  TO  LEFT 
/BOUNIDAI-.Y)    ';.ITH    APPF.OPKIATE   .^JOISE    VALUE. 


2105 

0000 

COMPAQ, 

0000 

2106 

A527 

JMS  I  SUBTRC 

/DETERMINJE  DESIRED  HEIGHT 

2107 

0000 

MIMEMD, 

0 

' 

2110 

0000 

SUBTHA, 

0 

/EITHER  XAX  OR  RIGHT 

21  1  1 

A^Ql 

JMS  I  FP 

2112 

5020 

FGET  FPA 

2113 

2026 

FSUP  FPC 

/HEIGHT-CNJOISE  OR  .NJ*nJOISE) 

21  1^ 

0030 

FEXT 

21  15 

10^5 

TAD  45 

21  16 

7700 

SMA  CLA 

/HEIGHT>^JOISE? 

21  17 

230  5 

I  S3  COXiPAK 

/YES.  I^JCr.E.YEvJT  FOR  EXIT 

2120 

5705 

JMP  I  COMPAH 

/MO,  EXIT 

/ROUTINE    TO    DETERXIME    IF    PSEUDO-PEAK    XEETS 

/ALL    REQUIREXEMTS    FOR    A    VALID    PEAK.        THE 

/REQUIRE^IEMTS    AnE: 

/  1.     #    CHAMMELS     I.NJ    PEAK>>JCH 

/  2.      C.MAX-nIGHT)>.\I*NjOISE 

/  3.     (MAX-LEFT )>M+MO I SE 

/THE  VALJi:  OF  MCH  IS  &*(#  CHAMMELS)  BECAUSE 

/THE  VALUES  OF  LEFT  S  RIGHT  ARE  LOCATIOMS. 

/THE  VALUES  OF  >JCH  ANJ  D  NJ  MAY  BE  CHANJGED 

/TO  GIVE  FLEXIBILITY  TO  THE  PEAK  SEARCH. 

2121  1065  PKCHCK,  TAD  LEFT         /DETERMINE  (RI  GHT-LEFT-\'CH ) 

2122  1362  TAD  MCH 

2123  7341  CIA 

2124  1067  TAD  RIGHT 

2125  7750  SPA  SMA  CLA      /EMOUGH  CHAMMELS  IM  PEAK? 

2126  52  16  JXP  LFTDET+3     /MO,  REJECT 

2127  4516  JMS  I  PKTEST     /YES,  LA.RGE  EMOUGH? 

2130  4526  JMS  I  STORPK     /YES,  STORE  AS  VALID  PEAK 

2131  5216  JMP  LFTDET+3     /MO,  REJECT 
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/bUEr.OUI  I\JE     iJ    DEiEnXigf-.    IF    t-^jEUDJ-PEAK    XEETi 

/HEIGHT    r.EuUInEXEM  ib    OF: 

/  1.     (XAX-hIGHI)> J+^OIbE 

/         2.  CXAX-LEr  f  )>\;*>1  JIbE 


2132 

■0030    PKrbT» 

0332 

1 

2133 

1361 

TAD 

Nj 

213^ 

4  53  6 

JXS 

I     FLOAT 

2  135 

3323 

FPA 

2  136 

4437 

JYi 

I     FP 

2137 

5032 

FGET 

■    FPD 

21/43 

3023 

FMHY 

■    FPA 

2M1 

6326 

FPUl 

•    FpC 

2142 

3  30  3 

FEXl 

21/J3 

1066 

TAD 

YAX 

2\iiii 

3313 

DCA 

SUEThA 

•d  145 

1367 

TAD 

high: 

2146 

3337 

DCA 

y  I  A  fc  vj  D 

2147 

4531 

JXb 

I     TEST 

2153 

5354 

JXP 

I-.  EJECT 

2151 

1065 

TAD 

LEFT 

21  52 

3337 

DCA 

XINJE\JD 

2153 

4  531 

JXb 

I     TEST 

2154 

c;33^    t^EJEGi  » 

r^z 

PKTST 

2155 

57  32 

JXH 

I     PKTST 

/CALC.  g*\JOISE 

/f-LOAT  nJ  %■    blOnK  I  \J  FPA 


/hEPLACE  MOISE  WITH  nJ  +  ^JOISB 


/SET  TEST  FOh  CX  AX-;.  I  Gf-' D 


/(XAX-i^.IGHr  )>vJ*\IOI  SEi- 

/NiO.     REJECT 

/YES.     SET    TEST    FOh 

/CX AX- LEFT) 

/CXAX-LEF  r)>\I+\]OISF  .' 

/NJO.     HEJFCr 

/VES.     EXIT 


/VAhl ABLES 


2156 
2157 
2  160 

5531 
2233 
303  1 

CJXP. 

CHA>JG4, 

y.IMHT, 

jyp     I     CHKPKS 

CHOICE 

1 

2161 
2  162 

3010 

^JCH» 

2 
10 

/EXIT    TO    ?AD    PK    SEAhCH 
/LOCATION]     OF    PhI\JTOUT     EXIT 
/I  ST    XAX.     IM    PSEUDO-PK. 
/XUST     HE    >    XI\IHT*\JOISE 
/^ALUE    OF    Nj     INJ    g*\JOISE 
/2+(*     CH'S)     INJ     V/ALID 
/PEAK    WIDTH 
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/houn^j 

E  TO 

TYPE  our 

PEAK 

'/MAXIMA 

A.xJD 

BOUxiD.-IES 

/TYPE  * 

OF  PEAK5  S  IMiriALIZE  CJUvJTFhS 

♦  2200 

2209 

1350 

Phl^JT, 

TAD 

MAG:^ 

/"^JUXEEH  OF  PEAKS  :  " 

2201 

4533 

jy.s 

I  TYPbT 

2202 

1376 

TAD 

C3 

/3  DIGI I  OUTPUT  FOhXAT 

2203 

3062 

OCA 

62 

2204 

1035 

TAD 

>J  PEAKS 

/PKlNJr  #  OF  PEAKS 

2205 

4231 

JXS 

SPPhT 

2206 

1336 

TAD 

PEAKbT 

2207 

3010 

DC  A 

Jr.  10 

2210 

1035 

TAD 

M PEAKS 

221  1 

7453 

SMA 

/MY    PEAKS  AT  ALL.' 

2812 

5233 

JXP 

CHOICE 

/^O 

2213 

7041 

CIA 

/YES 

2214 

3037 

DCA 

IvJDA 

/LOOP  TO  i-nlNJT  PEAK  PAKAXETEr.S  AMD  Ar.EAS 


2215 

1351 

TAD 

XAG10 

/PhlMT  HEADI^JG 

2216 

4533 

JMS 

I  TYPST 

2217 

4532  KEP3» 

JMb 

I  TYCr. 

2220 

1077 

TAD 

C4 

/4  DIGIT  OUTPUT  FOnXAT 

2221 

3362 

DCA 

62 

2222 

4243 

JXS 

Pr.TMUM 

/PhlMT  LEFT  LOUMDAhY 

2223 

4243 

JMS 

PhTMUM 

/PKIMT  PEAK  XAX 

2224 

4243 

JMS 

PhTMUM 

/PhlMT  hIGHT  POUMDAhY 

2225 

4472 

JMS 

I  APE  A 

/CALC.  6  PKI\)1  PK  AhEAS 

2286 

2337 

ISZ 

INJDX 

/FT  \]  I  SHED  ALL  PEAKS? 

2227 

5217 

jvp 

hEP3 

/NJO 

2230  7408  CHOICE.  KLT  /YES  fOh  "JXP  I  CHKPKS") 

/SUBROUTINE  TO  OUTPUT  A  S.P.  MUMBEh.      CALL 

/WITH  THE  MUyPEK  I  ^J  THE  AC  ANJ  D  LOCATION  6P 

/COMTAIM  I>JG  THE  DESIr.ED  FOhXAT  OF  THE  OUTPUT. 


C  AC) 


2231 

0033 

SPPhT, 

0033 

2232 

3045 

DCA  45 

/STOnE  *  IN]  H.O.  OF  FC 

2233 

3046 

DCA  46 

/CLEAr.  L.  0. 

2234 

1074 

TAD  C13 

/PUT  11(13)  ^^J  EXP 

2235 

3044 

DCA  44 

2236 

4437 

JXS  I  FP 

2237 

7000 

FNJOR 

/MOhXALI^E  FCAC) 

2240 

0300 

FEXT 

224  1 

4436 

JXS  I  OUTPUT 

/OUTPUT  \JUXBEh  THhOUGH 

2242 

5631 

JXP  I  SPPhT 

/EXIT 

FP 
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/bUBKOUTIME    TO    OUTPUT    PEAK    PAKPYETEnS 


2243  003G  PrsT\JU>5,    0030 

824A  1413                           IAD    I     Ihl0                   /GET    LOCATIOxT    OF    PAr.AMETE.h 

2245  7  110  CLL    hAi.  /DECODE    LOCATIOvJ     TO    CHAsJ>JEL 

2246  4231  JXS    SPPRT  /OUTPUT    PAhA>!FTEh 

2247  4534  J>;S    I    TlfSP 

2250  5543  JMP    I     PKTvJU^I  /EXIT 

/>JO^;iNJG    POINJT    DIFFEhEMTIATIOvJ     SUB  r.OUT  I  \J  E 

2251  0300  DIF,  0000 


2252 

2034 

ISZ 

COUMT 

2253 

2034 

ISZ 

COUNJT 

/FINISHED  ALL  DATA? 

2254 

5256 

JXP. 

•  +2 

/MO 

2255 

5233 

UMP 

PnlMT 

/YEb 

2256 

73^6 

CLL 

CLA  CML  hlL 

/I>JChE>iEMT  FOh  y:r>JUE\'D 

2257 

1334 

TAD 

COU^]T 

/bTOHE  L.O.  LOCATIOv 

2263 

3265 

DCA 

DIF2 

/OF  MIMUEMD 

2261 

1034 

TAD 

COUVJT 

/STOhE  L.  0.  LOCATI  J^J 

2262 

3264 

DCA 

DIFl 

/OF  SUK-.ThAHF\]D 

2263 

4527 

UYb 

I  SUDli-.C 

/GET  DIFFEhFvITIAL 

2264 

0330 

DIFl, 

3 

2265 

0330 

DIF2, 

0 

2266 

1321 

TAD 

FPA+  1 

/GET  H.O.  UOhD  OF  DIFF 

2267 

5651 

JXP 

I  DIF 

/EXIT 

/DOUBLE    PhECIblOM     SUPThACTIJv'     SUPROUTInJE. 
/DATA    IS    LOCATED    I  >J     UPPFh    COKE    (D.p.  ). 
/CALL    '.vITH    JYS    FOLLO'^ED    BY    LOCATION 
/OF    LO'w-Or.DFh    *OhD    OF    SUBThAHEMD    AMD 
/THENJ    LOCATION)    OF    LOW-ORDEh    WOhD   OF 
/MIMUE'JD.        FIMAL    DIFFERENCE    'U  LL    BE 
/STOnED    AS    A    NJOhXALITlED    FLOATING    POIMT 
/WOhD    IN]    LOCAIIOVi    23-22.     PAGE    0 


2270 

0000  SUETh, 

0330 

2271 

7300 

CLL 

CLA 

2272 

1670 

TAD 

I  SUBTh 

2273 

4510 

JMS 

I  GET 

2274 

0023 

FPA 

2275 

2270 

ISZ 

SUBTH 

2276 

1670 

TAD 

I  SUETh 

2277 

4510 

JMS 

I  GET 

2300 

3023 

FPB 

2301 

4407 

JXS 

I  FP 

2302 

5023 

FGET 

FPB 

2303 

2020 

FSUB 

FPA 

2304 

6023 

FPUT 

FPA 

2305 

0000 

FEXT 

2306 

2270 

ISZ 

SUBTh 

2337 

5670 

JMP 

I  SUBTh 

/FLOAT    SUEThAHF:.MD 


/FLOAT    MINJUENJD 


/^!I^JUE^JD-SUPThAHE^JD 


/EXIT 
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/SPECIAL  SUBhJUTIME  TO  FETCH  DJUPLE 
■/PKECI-.IJ,'  DATA  FhOM  UPPEK  COhE, 
/COMVEhT  IT  TO  FLOAT  IMG  PJIVJT.  AMD 
/STOhE  IT  I>J  THE  DESIGNATED  LOCATIOvJS. 
/THE  hOUTINJE  IS  CALLED  BY  A  J^S. 
/FOLLOWED  EY    THE  Flr.Sf  LOCATIJnJ  OF 
/THE  DESIRED  STOhAGE  SPACE.   THE 
/CONJTEMTS  OF  THE  AC  SHOULD  COMTAIM 
/THE  LOCATIO^J  OF  L.J.  UOKD  OF  DATA 

2310  0000  GGET.    0000 

231  1  111^  TAD  y.l 

2312  3011  DCA  n.LOC 

2313  17  10  TAD  I  GGET 
23 1-^  3352  DCA  STOhE 

2315  1075  TAD  0^7  /SET  FCAC)  EXP  TO  27Co) 

2316  30^*^  DCA  44 

2317  6211  CDF+10 

2320  1411  TAD  I  InLOC      /STOnE  LO'*-OhDEh  WOhD 

232  1  3346  DCA  46  /IM  FCAC)  L.O.  >1A.>JTISSA 

2322  14  11  TAD  I  IhLOC  /STOKE  HIGH-OKDEh  v^OhD 

2323  3345  DCA  45  /IM  FCAC)  }"..  J.     XAMTISSA 

2324  623  1  CDF 

2325  4437  jy.S    I  FP 

2326  7000  FNJOh  />J0K>3ALI  2;E  FCAC) 

2327  6752  FPUT  I  STOhE  /STOhE  NJOhMALI/^ED  DATA 

2330  0300  FEXT 

2331  2310  ISZ  GGET 

2332  57  10  JMP  I  GGET       /EXIT 

/FIXED  TO  FLOATIMG  POI^JT  COMUEKSI  0^] . 
/CALL  WITH  12  BIT,  UMSIC-NJED  IMTEGEh 
/IM  THE  AC.    FOLLO^k  THE  JYS  WITH  THE 
/DESIhED  STOhAGE  LOCATIOM  F Oh  THE 
/MOKVALIZED  F.  p.  DATA. 


/PUT  iNJTEGEh  I^J  L.O.  MAxJTISSA 
/CLEAh  H.O.  .YAOriSSA 
/PUT  £7Cb)  l:\]  EXP 


2333 

0330  FFL3AT. 

3300 

2334 

3346 

DCA  46 

2335 

3345 

DCA  45 

2336 

1375 

TAD  C27 

2337 

3S44 

DCA  44 

2340 

1733 

TAD  I  FFLOAT 

234  1 

3352 

DCA  STOhE 

2342 

4437 

o^-lo  I  FP 

2343 

7030 

FMOR 

2344 

67  52 

FPUT  I  STOhE 

2345 

3330 

FEXT 

2346 

2333 

ISZ  FFLOAT 

2347 

5733 

JMP  I  FFLJAT 

/MOKMALIZE  FCAC) 
/STOhE  UHEhE  DESIhED 


/  EX  I  T 
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/VARIABLES 


2350 

2353 

yAG9. 

PRINJTI 

2351 

Hbli 

MAG  10. 

PhI^JT2 

2352 

0000 

bTOhE, 

0 

/MESSAGE  SIh.IMG 

FQK  peak  PhlsJIJUT 

2353 

0015 

PhlMTl. 

0015 

/C.h. 

235-^ 

0012 

0012 

/L.  F.  TWICE 

2355 

0G12 

■1  ^  t  .' J 

2356 

1625 

1625 

/•'.VJUMBEh  OF 

2357 

1502 

1532 

2360 

0522 

0522 

2361 

-^.017 

4017 

2362 

0640 

0640 

2363 

2005 

2005 

236A 

0113 

0113 

2365 

2340 

2340 

2366 

7  24  3 

7240 

2367 

000  1 

000  1 

/EMD  YiESSAG 
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/DETEKMIxJATIJ^     OF    RAvJDJM    bTATISTICAL    ^JOISE-- 
/SUBh.OUTI\'F    DF.TEhMI>JEb    THE    AvEhAGE    t^FAK    TD 
/PEAK    ^JOIbE    PETv.  EEnJ     IVO    SPECIFIC    CHANJMELb.     THE 
/STAz-.TlNJG    CHANjvJEL    IS    DETE^.XI^JED    hi    THE    PEAK 
/DETECT  I  OnJ    r.OUTIvJE,     AMD    THE    DETEhMI  nJ  ATI  OM     IS 
/OVEh    A    FIXED    hAV'GE    OF    CHAvJMELS. 


♦  8400 

2A00 

0000  SMOISE, 

0033 

8^01 

7  303 

CLL  CLA 

84  08 

3333 

DC  A  NJ-'IAX 

2403 

3302 

DCA  FPD 

2404 

3003 

DCA  FpD+1 

24  0  5 

3004 

DCA  FPD+2 

2406 

3331 

DCA  Dl^Ibh 

2407 

I  1  13 

TAD  MSPECF 

24  10 

3335 

DCA  MUM 

24  1  1 

4243 

jys  FDI  FK 

2412 

7730 

SMA  CLA 

24  13 

581  1 

JMP.-8 

/SET    FIXED    i.ANlGE    FOR 
/M0ISE    DETEhXIMATIDJ 
/GET    DIFFEhEMTIAL 
/MEG    fET? 
/M3 

/DETF.hMIME    JOISE    yi\jiv(j.vi 

2414  4243  YIMDET*     JXS    FDIFF  /YE^,     GET    DIFF. 

2415  7710  SPA    CLA  /POS    YET? 

2416  5214  JMP.-2  /M  3 

2417  1034  TAD  COUMT  /YES,  SAVE  L0CArr3\'  OF  XIJ 
2480  3334           DCA  M  >i  I  M 

242  1  4253  JXS  DTPKPK        /DETEhMIMF  PK-PK  ^01 SF 

/DETEF^XIME  MOISE  XAXIMUX 

2488  4243  MAXDET,  JXS  FDIFF  /GET  DIFF. 

2423  7700  SMA  CLA  /MEG  YET? 

2424  5222  JMP. -2  /MO 

2425  1034  TAD  COUM  f  /YES,  SAl-E  LOCATION  OF  MAX 

2426  3333  DCA  MMAX 

2427  4253  JXS  DTPKPK  /DETF.:.-' j  \j  £  PK-PK  MJIbE 
2430  52  14  JMP  XIMDET  /r.EPEA'i 
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2^31 

7333 

2^32 

1331 

2433 

4506 

243-^ 

03ii3 

2il35 

4437 

2'!j36 

5J0^ 

2437 

4323 

2443 

603  2 

244  1 

3333 

2442 

5633 

/CALCULATE    A^^EhAGE    PEAK    T3    PEAK    \IJIbE 

AUE^i,  CLL    CLA 

TAD    Dl^rSh  /FLOAT    DlVlbJh.    S    bTJ^F 

vJMS     I     FLOAT 

FPB 

jyib    I     FP 

FGET    FPD  /GET    TOTAL    PK-PK    nJOISE 

FDIU    FPB  /DIVIDE    Bf    DlOIbJr. 

FPIJT    FPD  /STOkE    \JOIbfc     I  si    FPD 

FFXT 

J>5P    I     bxJOIbE  /EX  If 

/SUBhOUTIMF     10    FETCH    DI FFEhEM TI AL 
/A\JD    ALbO    DEIF.-viigE    i/HE^J     FIJIbHED 

2443  3000  FDIFF»   3300 

2444  4532  JXb  I  DIFF  /GET  DIFFEhEMTIAL 

2445  2335  I SZ    .JiJM  /FIxJISHED  fET  .-' 

2446  5643  jvp  I  FDIFF  /.\]  0 ,  EXIT 

2447  523  1  JMP  A^EH  //F.S,  CALCULATE  AV/EHAGE  vJOIbE 

/CALCULATIO\I  OF  TOTAL  PEAK  TO  i-EAK  ^>JOIbE. 
/PEAK  XI.NJIXUM  lb  bUBTr.ACTED  FhOX  PEAK 
/XA^aXoX  AJD  DIFFEPF.vJCE  lb  bUPfOTALFD 

2450  0030  DTPKPK,  0300 

2451  1333  TAD  >JMAX 

2452  7450  bNJA 

2453  5650  jyp  I  DTPKPK 

2454  3262  DCA  DTPK2 

2455  1334  TAD  nJXI^J 

2456  3261  DCA  DTPKl 
24  57  2331  lb/.  DIvIbK 

2463  4527           jy]S     I  bUEThC     /bUBThACT  X 1  ^J .  FfOv  vax. 

2461  Q<Ji}d  DTPKl,   3 

2462  0030  DTPK2,   0 

2463  4407  jy,i>    I  FP 

2464  5032  FGET  FPD  /GET  PhEUIO'Jb  TOTAL  MOISE 

2465  1020  FADD  FPA  /ADD  LATEbT  DIFFEhEMCE 

2466  6002  FPUT  FPD  /bA^/E  \I  EU  TOTAL  ^OlbE 

2467  Qd^a  FEXT 

2470  5650  JMP  I  DTPKPK     /EXIT 
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/FLOATIMG    TO    FlAFD     CD.  F.  )    C  0\I  UEr.SI  OvJ  . 
/CALL    V.  ITH    jys    FOLLOWED    Br    LOCATIJvJ 
/OF    f-.F.     WORD.        EXIT    UIIH    D.  P.     INTEGER 
/IM    LOCATIONJS    -^6    CL.  0.  )     %    ^5    CH.O.  ). 
/SET    IMlEGEh    10    0    IF    THE    h".  P.     WOi-D    IS    gEG. 

2^7  1     0000    FFIX.  £033 

2-^72    7333  CLL    CLA 

2^73  1671  TAU  I  FFIX        /SAVE  DATA  LOCAIIOvJ 

2^1^    3336  DCA  STOh 

2475  -Q^O?  JMS  I  FP 

2A76  5736  FGET  I  bTOH 

2477  7030  F>JOii.  /.MOHMALIZE  F.p.  ^..OhD 

2500  0330  FEXT 

250  1  y27  1  IbZ  FFIX 

2502  1044  TAD  44  /IS  THE  *<l? 

2533  7543  SZA  SMA 

2534  5311  0MP.+5  /^JO 

2535  7333  ZEKO.    CLL  CLA  /YES,  SET  IT  TO  0 
8  50  6  304  5           DCA  4  5 

2507  3046  DCA  46 

2510  567  1  jy.F    I  FFIX        /EXIT 

2511  1332  TAD  M27  /SET  BIvI.  PT  23(10)  PLACES 

2512  7453  SM  A  /TO  HIGH!  OF  CUr.r.FA'T  t^l 

2513  567  1  jyp  I  FFIX        /IT'S  ALhEADf  THEr.E,  EXIT 

2514  3044  DCA  44 

2515  7  103  hEP2,    CLL 

2516  1345  TAD  45  /GET  H.  0.  YA'JTISSA 

2517  7  510  SPA  /IS  IT  \JEGATIVE? 
2520  5305           JMP  ZEi\3                       /YES 

252  1  70  13  hAh  /.^JQ,  hOTATE  S  hESTOl-.E 

2522  3345  DCA  45 

2523  1346  TAD  46  /GET  L.  0.  XANJTISSA 

2524  70  10  l-.A:.  /KOTATE  S  KKSTOhE 

2525  3046  DCA  46 

2526  2044  ISZ  44  /ROTATED  E.>JOUGH? 

2527  5315  JXP  hEP2         /:^0 

2530  567  1  J>;P  I  FFIX       /YES.  EXIT 

/VARIABLES 


2531 

0030 

DIVISR, 

0 

2532 

7751 

X27, 

-27 

2533 

0003 

MMAX. 

0 

2534 

0300 

MMI^J  , 

0 

2535 

0000 

yiuy.. 

0 

2536 

0003 

STOt^, 

0 
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/SUBKOUTlvJE    TO    hlJvJ    A    SAVITZKY    i    GOLAY 
/LEAST     SOUAhES    b.vlOJTH    0^     A    20/id(13) 
/CHAM  >J  EL    SFECTKUM    WHICH     IS    ST3hED 
/I^J    DOUBLE    PhECIblOxJ     I  \i     UPPEh    COhE 


/I.MPUI 

REQUIRED  IvIFOh 
♦  3203 

XATIOM 

3200 

0330  bMOTH, 

3333 

3231 

7330 

CLL 

CLA 

3202 

1366 

TAD 

MAG  19 

/"#  PTS  IM  SMOOTH  =  " 

3233 

4533 

JVjS 

I  TYP5T 

3234 

4521 

JMS 

I  blCO.xJ 

/IMPUT  # 

3205 

3365 

DCA 

MPTS 

3206 

1065 

TAD 

MPTS 

/DETERMIME  POI^JTEK  FJh 

3237 

1065 

TAD 

MPTb 

/STORAGE  OE  LAST  DATA 

3210 

1365 

TAD 

NJPTS 

/POIMT  PJ  SThlMG 

321  1 

1365 

TAD 

CSTAhT 

3212 

3314 

DCA 

EMDbTG 

3213 

7325 

CLA 

STL  I  AC  H 

AL  /CALC.  COnJSTA^JTS  P0I>JTEH 

321-!4 

1314 

TAD 

EMDSTG 

/AS  E^JDSTG+3 

3215 

3032 

DCA 

CNJSTPT 

3216 

1367 

TAD 

XAG23 

/••DIVISOR  =  •• 

32  17 

4533 

J>3S 

I  TYPST 

3223 

4405 

jys 

I  INJPUT 

/IMPUT  #  THROUGH  F.  P. 

3221 

1365 

TAD 

CSTA.-.T 

3222 

4537 

jr-is 

I  FPSTOh 

3223 

1065 

TAD 

NJPTS 

3224 

7041 

CIA 

3225 

3036 

DCA 

IMDEX 

3226 

1373  IMPTC5, 

TAD 

XAG21 

/••COMSTA-MT  =  •• 

322  7 

4533 

JMS 

I  TYPST 

3230 

4435 

vWi> 

I  IMPuT 

/IMPUT  #  THROUGH  F.  H,. 

3231 

1032 

TAD 

CMSTPT 

3232 

4537 

JX  ^ 

I  EPS TOR 

3233 

2332 

ISZ 

CMSTPT 

3234 

2332 

ISZ 

CMSTPT 

3235 

2332 

I  57. 

CMSTPT 

3236 

2336 

ISZ 

IMDEX 

/IMPUT  ALL  COMSTAMTS? 

3237 

5226 

JMP 

IMPTCS 

/^JO 
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/I>JITIALIZE    VAnlAELFS    S    POlNJTEhS 


32^0 

ID  65 

TAD 

^JPTS 

3241 

7  341 

CIA 

3242 

7  0;jl 

I  AC 

3243 

3037 

DC  A 

MPTSPl 

3244 

1337 

TAD 

MPT5P1 

3245 

3336 

DCA 

IMDEX 

3246 

1037 

TAD 

WPTbPl 

3247 

7031 

I  AC 

3252) 

7  34  1 

CIA 

3251 

33  14 

DCA 

IhSTOh 

3252 

3331 

DCA 

CMrE.-^ 

3253 

7333 

CLA 

STL  KAh 

3254 

1337 

TAD 

XPTSPl 

3255 

3334 

DCA 

C^JT 

3256 

7327 

CLA 

STL  lAC 

3257 

1365 

TAD 

CSTAhT 

3260 

3264 

DCA 

CFPX 

/YES.     CALC. 


(*    PTS)+1 


KTL 


/I^JITIAL^£E    I.h.     TO 
/hESTOKE    5>iJJTHED    DATA 
/AT     (*     HTb)-2 

/I^IT.     HA'.v    DATA    POI>]TEH 
/IMIT.     TOTAL    PTS    COUnITEH 
/AT    2348C 13)-XPTS?1 

/SET    LOCATIJxI     POI-JTEh    FOi-. 
/SThlvIG    AT    2636C6) 


/INITIALIZE    SThlNJC-    OF    RAW    DATA    POIvJIS 


3261 

1031 

r.EP4, 

TAD  CMTEh 

3262 

7  134 

CLL  r.AL 

3263 

4513 

JV1S  I  GET 

/FETCH.  FLOAT,  e 

3264 

2635 

CFPX. 

2636 

/STOhE  HAW  DATA 

3265 

2264 

ISZ  CFPX 

3266 

2264 

ISZ  Cf-PX 

3267 

2264 

ISZ  CFPX 

3273 

2031 

ISZ  CMTEri 

3271 

2336 

ISZ  I^DEX 

/FINJISHED  SlnlNJG? 

3272 

5261 

JMP  hEP4 

/NJO 

/MOVE    STr.lNJG    UP    OM  E    DATA    POIN)! 


3273 

7326  hELOC, 

CLA 

^iL  nTL 

3274 

1365 

TAD 

CSTAHT 

3275 

3313 

DCA 

I  r.P UT 

3276 

7325 

CLA 

STL  I  AC 

3277 

1313 

TAD 

li-PUT 

3300 

30  10 

DCA 

Ir.GET 

3301 

1037 

TAD 

Xpr:DPl 

3302 

1337 

TAD 

MPTSPl 

3303 

1037 

TAD 

MPTiPl 

3304 

3336 

DCA 

IxJDEX 

3335 

1413 

TAD 

I  I  r.G  ET 

3306 

3413 

DCA 

I  IhPUT 

3307 

2336 

ISZ 

INJDEX 

3313 

5335 

JMP. 

-3 

331  1 

1331 

TAD 

CMTEh 

3312 

7134 

CLL 

hAL 

3313 

4510 

JMS 

I  GET 

3314 

0330  EMDSTG. 

3 

r.AL 


/INIIT.     I.vJDEX    FOh    C#    PTS- 
/F. P.     STOhAGE    LOCATIONS 


1  ) 


/GET    DATA    V.OhD 

/MOVE    IT    EACH    ON)  E    F.  p.     LOC 

/FINISHED    STr.IMG? 

/>J0 

/YES,  GET  ^JEW  FINAL 

/DATA  POINT 

/FETCH,  FLOAT,  S  STOhE 

/AT    END    OF    SThING 
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/CALCULATE  SMOOTHED  DATA  i    TRA>JSFER  IT 
/TO  IT'S  Pr.OPEh  PLACE  I  J  THE  SPECThUM 


3315  4337  JMS  AUEhAG       /CALC  WEIGHTED  AVERAGE 

3316  ^^dl  J^S  I  FP 

3317  5023  FGET  FPA  /GET  WEIGHTED  AVEKAGE 

3320  -4765  FDIV  I  CSTAhT    /DIVIDE  BY  DIVISOR 

3321  6J23  FPUT  FPA  /SAVE  SMOOTHED  DATA  PO I  \]  T 

3322  0000  FEXT 

3323  4505  JMS  I  FIX        / 1 NJ  lEGERI  ZE  SMOOTHED  DATA 

3324  3380  FPA 

3325  6211  CDF+10 

3326  1046  TAD  46  /TRAnJSFER  SMOOTHED  DATA  TO 

3327  3414  DCA  I  IRSTOR     /COiihECT  PLACE  I  xJ  SPECTnUM 

3330  1045  TAD  45 

3331  34  14  DCA  I  IRSTOR 

3332  6201  CDF 

3333  2331  I SZ  CvJTEH 

3334  ^334  IS'd  CMT  /FIMISHED  ALL  DATA? 
333  5  52  7  3  JMP  RELOC        /MO 

3336  5600  JMP  I  SMOTH      /YES,  EXIT 

/CALCULATE  THE  TOTAL  WEIGHTED  AVERAGE 


3337 

0000  AVERAGr 

0000 

3340 

7  340 

CLL 

CLA  CMA 

3341 

1037 

TAD 

MPFSPl 

3342 

3336 

DCA 

INJDEX 

3343 

3020 

DCA 

FPA 

3344 

3321 

DCA 

FPA+  1 

3345 

3322 

DCA 

FPA +  2 

3346 

1365 

TAD 

CSTART 

3347 

30  33 

DCA 

GETDAT 

3350 

7  32  5 

CLA 

STL  I  AC  hAL 

3351 

1314 

TAD 

EnJDSTG 

3352 

3332 

DCA 

C'vJSTPf 

3353 

4771 

JMS 

I  SUPTOT 

/FIvJD  SUBTOTAL 

3354 

2336 

ISZ 

IMDEX 

/FINISHED  ALL  P0I\1TS? 

3355 

5353 

JMP. 

-2 

/\]0 

3356 

5737 

JMP 

I  AVEnAG 

/YES»  EXIT 

/SUEROUTINJE  TO  STOnE  A  F.  P.  #  WHICH 
/HAS  BEEM  IMPUT  THROUGH  THE  F.  P. 
/PACKAGE.   CALL  WITH  THE  DEblRED 
/STORAGE  LOCATION  I M  THE  AC 

3357  0030  FSTORE,  0333 

3360  3366  DCA  PTEMP 

3361  4407  JMS  I  FP 

3362  6466  FPUT  I  PTEMP     /STORE  F. P. 

3363  0030  FEXT 

3364  57  57  JMP  I  FSTORE     /EXIT 
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/\/Ar.IAELES 


3365 

2600 

C ST ART, 

2630 

3366 

4  5-40 

Y:  AG  1  9  , 

iMOTHl 

3367 

4555 

yAG20» 

iXOTHy 

3370 

4565 

-XAGSl  , 

t,y.3TU3 

337  1 

4523 

i)UBT3T» 

SBTDT 

/START  OF  STORAGE  SPACE 


/SUBhOUTI^JE  TO  FIMD  A  SUBTOTAL 
/FOh  A  WEIGHTED  Av/EhAGE  SMOOTH 


4523 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4530 
4531 
4532 
4533 
4  534 
4535 
4536 
4537 


0003 
2033 
2033 
2033 
4407 
5433 
34  32 
632  6 
5320 
1026 
6023 
0030 
2332 
2032 
2032 
5720 


+  4520 
SBTOT,   0303 

ISZ  GETDAT 
IS?.  GETDAT 
ISZ  GETDAT 
JXS  I  FP 
FGET  I  GETDAT 
I  C^STPT 
FPC 
FPA 
FPC 
FPA 


EMPY 

FPUT 

FGET 

FADD 

FPUT 

FEXT 

ISZ  CMSTPT 

IbZ  CNJSTPT 

ISZ  OJSTPT 

JX?  I  St-TOT 


/GET  hAU  DATA  POI.NJT 
/MULTIPLY  BY  WEIGHTING 
/CO^JSTAMT  e  SAVE  PRODUCT 
/GET  SUBTOTAL 

/ADD  PRODUCT 

/STDRE  AS  \JEV  SUBTOTAL 


/EXIT 


267 


PAGE    dQ39 


/MESSAGE  STi.IMGb 

^5^0 

0315 

iXOIhi,  Jj15 

4541 

0312 

0012 

4542 

03  12 

3312 

4543 

4343 

4340 

4  54  4 

2024 

2024 

4545 

234  3 

2340 

4546 

11  16 

11  16 

4547 

4023 

4  02  3 

4550 

1517 

1517 

4551 

1724 

1724 

4  552 

1040 

1040 

4553 

7  540 

7  543 

4554 

0001 

0001 

4555 

0315 

SM0TH2,  0015 

4556 

3312 

0012 

4557 

3411 

04  11 

4  563 

2611 

2611 

4561 

2317 

2317 

4568 

2240 

2240 

4563 

7  540 

7540 

4564 

0001 

0001 

4565 

0015 

b.yOIHo,  J.;  15 

4566 

0312 

0012 

4567 

0317 

0317 

4570 

1623 

1623 

4571 

2401 

2431 

4572 

1624 

1624 

4573 

4075 

4075 

4574 

4000 

4330 

4575 

0100 

0103 

FJi;    L.  i.     SMOJTH 

/C.  h. 

/L.  F.     TV,  ICE 


/••*     HTS     I>J     SVJJTH    = 


/F\ID    yiES:3AGE 
/C.  H. 
/L.  F. 
/"DIVISjK    =    •• 


/f:\jd  message 

/  C  .  r. . 
/L.  F. 

/••CJNJSTAMT    =    •• 


/EMD    vp55p,GE 
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/bUBKDUTIME    TO    DETEh>5I.ME    THE    GUAXJT  I  TA  F  I  UE 

/AhEA  IV  A  GAMXA-hA^  PHJTOPEAK 

/CALCULATI3:>J  UbES  TOTAL  PEAK  AhEA 

/TOTAL  Ar.EA  IS  CALCUALAIED  BY    bUXXAFIOM 
/OF  DATA  OUEr.  ALL  CHAM^ELb  l^    PEAK,  THE>J 
/THE  TP.APEZOIDAL  Ar.EA  DETEhXIxJED  BY    THE 
/TWO  bJUJDAx.y  Ch!A.\)\JELS  I  :>  SUBTr.ACTED  TO 
/YIELD  THE  QUANTITATIVE  AhEA  DESIhED. 

♦  3600 

3630  0300  PKAhEA,  0000 

3601  73'^6  CLL  CLA  CXA  hTL  /(-3) 

3602  10  10  TAD  Ihl3         /hESET  hEGIbTEh  FOh 

3603  3010  DC A  Ihl0  /PROPER  PEAK 

3604  7343  CXA  /SET  DECISION'  POJNJTEh 

3605  3374  DCA  OnJETWO 

3606  1410  GETPK.  TAD  I  IhI0        /GET  LEFT  EOUvJDAhY 
3637  7  110  CLL  nAh 

3610  3065  DCA  PKLEFT 

3611  14  10  TAD  I  Inl3        /GET  PEAK  XAX 

3612  7  1 10  CLL  nAh 

3613  3066  DCA  PKXX 

3614  14  10  TAD  I  Inl0        /GET  hIGHT  FOUODAhr 

3615  7  110  CLL  hAh 

3616  3067  DCA  PKhT 

3617  1365  TAD  PKLEFT        /FLOAT  S  STOhE 

3620  7  104  CLL  hAL  /LEFT  BOU^jDAhI' 

3621  4510  JXS  I  GET 

3622  0002  FPD 

3623  1067  TAD  PKRT  /FLOAT  £  STOh.E 
3684  7  104  CLL  HAL           /RIGHT  BOUMDARY 

3625  4510  JVJS  I  GET 

3626  0031  FPTEXP 

3627  1065  CALC,    TAD  PKLEFT       /FLOAT  a  STOhE  # 

3630  7041  CIA  /CHANJNELS  In]  PEAK 

3631  1367  TAD  PKhT 

3632  7301  lAC 

3633  4506  JXS  I  FLOAT 

3634  0326  FPC  /#  CHAMM ELb= C hi GHT-LEFT ) + 1 

3635  4437  JXS  I  FP 

3636  5031  FGEI  FPTEMP      /CAL.  ThAPEZOID  AhEA  AS 

3637  1302  FADD  FPD  /<^J  *  C  LEFT  +  hl  GHT  ) /2> 

3640  3026  FMPr-  FPC 

3641  4370  FDIV  FP2 

3642  6023  FPUT  FP5  /STOr.E  ThAPEZOID  AhEA 

3643  0303  FEXT 

3644  1367  TOTAL*   TAD  PKhT  /CALC  TOTAL  Ar.EA 

3645  7041  CIA  /BY    SUXXATUN 

3646  337  5  DCA  XPKRT 

3647  3020  DCA  EPA 

3650  3021  DCA  FPA+ 1 

3651  3022  DCA  FPA+2 

3652  1365  TAD  PKLEFT 

3653  3034  DCA  CMT 
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0041 

3654 

1034  LOOP, 

TAD  C'^JT 

/ADD  CUr.hE^jT  CHA'^>JEL 

3655 

7104 

CLL  HAL 

/TO  SUBTOTAL 

3656 

4513 

JM5  I  GET 

3657 

0326 

FPC 

3663 

4407 

JMS  I  FP 

3661 

5026 

FGET  FPC 

3662 

1323 

FADD  FPA 

3663 

6323 

FPUT  FPA 

/STOKE  SUBTOT.  I M  FPA 

3664 

0303 

FEXT 

3665 

23  34 

IbZ    CMT 

3666 

1034 

TAD  c>;t 

/PASSED  hIGKT  50U>JDAKY? 

3667 

1375 

TAD  MPKhT 

3670 

7750 

5PA  SMA  CLA 

3671 

5254 

JXP  LOOP 

/MO 

3672 

4407 

JMS  I  FP 

/YES 

3673 

5023 

FGET  FPA 

/GET  TOTAL  AHFA 

3674 

2323 

FbUB  FPB 

/SUFTHACT  ThAP.  AREA 

3675 

6326 

FPUT  FPC 

/STOKE  QUAM.  AKEA  I  vi  b  yC 

3676 

00J0 

FFXT 

3677 

1367 

TAD  FPSThT 

/"f-GET  PPA-3" 

3700 

3766 

DCA  I  CCFP 

/IMIT.  FETCH  LJC.  FOh  LO 

3701 

4  7  7  6 

JMS  I  pNJT 

/PKIMT  TjTAL  AKF.A 

3732 

4776 

JMS  I  PNJT 

/PKI>JT  TRAPEZOID  AhEA 

3703 

4776 

JMS  I  PsJT 

/PiUMT  GUAMTITATIVE  AKEA 

3704 

2374 

ISZ  OsJET^^O 

/FIMISHED  BOTH  METHODS? 

3705 

5633 

JMP  I  PKAhFA 

/YES,  EXIT 

/CALCULATIO^J  of  peak  AKEA  USINJG  WASSO^J'S  METHOD--- 
/THE  OKIGINJAL  LEFT  CXI)  i  KIGHT  ( X4 )  BOUJDAKIES 
/AKE  USED  TO  CALCULATE  THE  SLOPE  OF  THE  PASELME 
/AMD  THEM  THE  WASSOM  LEF I  C X2 )  e  KIGHT  C X3 ) 
/FOU^JDAKIES  AKF  USED  TO  CALCULATE  THE  Ai-.EAS  USIMG 
/THE  SAME  METHOD  AS  ^sITH  THE  TOTAL  PEAK  METHOD. 


3706 
3707 
3710 
371  1 
3712 
3713 
3714 
3715 
3716 
3717 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 


1365 
7041 
13  67 

4536 
0326 
13  67 
7341 
1366 
1373 
7543 
5630 
1067 
3367 
1365 
7  34  1 
1367 
4536 
0323 


WASSOM 


TAD 
CIA 
TAD 
JMS 
FPC 
TAD 
CIA 
TAD 
TAD 
SMA 
JMP 
TAD 
DCA 
TAD 
CIA 
TAD 
JMS 
FPB 


PKLEFT 

PKKT 

I  FLOAT 

PKKT 

PKMX 

MWASOM 

SZA 

I  PKAKEA 

PKKT 

PKKT 

PKLEFT 

PKKT 

I  FLOAT 


/MO,  CALC.   (X4-X1) 
/AS  (LEFT-KIGHT) 


/IS  (X4-MAX)>0r.=  MWAb0.M  ? 


/MO, 

/YES, 


EXIT 

FIMD 


WASSOM 'S  PKKT 


/CALC.   CX3-X1) 
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3730  1373  TAD    ^JWASDM  /IS     (M  AX-Xl  )  >  0^.=  \%.  AS  J^J  ? 

3731  1365 

3732  7041 

3733  1066 

3734  7510 

3735  5633  JMP  I  PKAKEA     /MO,  EXIT 

3736  1065  TAD  PKLEFT       /YES,  FIMD  '.vASS3\J'S  PKLEFT 

3737  337  5  DCA  PKTEMP       /PUT  I^  TEMP.  STOhAGE 

3740  1065  TAD  PKLEFT        /CALC   CX2-X1) 

3741  7341 

3742  1375 

3743  4506 

3744  0323 

3745  1375  TAD    PKTEMP  /CHAVJGE   PKLEFT    T3    X2 

3746  3065 

3747  4407 

3753  5031 

3751  2002 

3752  4326 
37  53  6326  FPUT  FPC         /SLOPE= ( Y4- r 1 ) / C X4-X 1 ) 

3754  5026 

3755  3023 

3756  1002 

3757  6031  FPUT  FPTEMP      /Y3=SL0PE* ( X3-X 1 ) + Y 1 
3763  5026 
37  61  3020 

3762  1002 

3763  6032  FPUT  FPD         /Y2=SL3PE* ( X2-X I) + Y 1 

3764  0300 

3765  5227  JXP  CALC  /CALCULATE  THE  AKEAS 

/VAhlABLES 

3766  2553  CCFP,    CFP 

3767  5015  FPSThT,  50  15  /CFGET  FPA-3) 

3770  0332  FP2,     3332  /2.  3 

3771  2000  2000 

3772  0000  0300 

3773  0004  NJWASOM,  4 

3774  0000  OMETWO,  0 

MPKRT, 

3775  0300  PKTEMP,  0 

3776  2543  PM T ,     PPM T 


TAD 

MWAS3M 

TAD 

PKLEFT 

CIA 

TAD 

PKMX 

SPA 

JMP 

I  PKAKEA 

TAD 

PKLEFT 

DCA 

PKTEMP 

TAD 

PKLEFT 

CIA 

TAD 

PKTEMP 

JMS 

I  FLJAT 

FPA 

TAD 

PKTEMP 

DCA 

PKLEFT 

JMS 

I  FP 

FGET 

FPTEMP 

FSUB 

FPD 

FDIV 

FPC 

FPUT 

FPC 

FGET 

FPC 

FMPY 

FPB 

FmDD 

FPD 

FPUT 

FPTEMP 

FGET 

FPC 

FMPY 

FPA 

FADD 

FPD 

FPUT 

FPD 

FEXT 

JMP 

CALC 
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/SUBROUTIME    TO    FHIMT    AKEAS 


♦  2540 

2540 

0000 

PPMT, 

0003 

2541 

4534 

JMb  I  TYSP 

2542 

I  100 

TAD  C7 

/7  DIGIT  OUTPUT  FORMAT 

2543 

3062 

DCA  62 

2544 

7325 

CLA  bTL  I  AC  hAL 

/C+3) 

2545 

13  50 

TAD  CFh^ 

/I\'ChEXE\IT  FETCH  LJC  FOh 

2546 

3350 

DCA  CFP 

/PhOPER  AREA 

2547 

4407 

jyis   I  FP 

2550 

0300 

CFP, 

0 

/"FGET  FPX" 

2551 

0000 

FEXT 

2558 

4406 

- 

JMS  I  OUTPUT 

/OUTPUT  AREA 

2553 

5740 

JMP  I  PP>]T 

/EXIT 

/MESSAGE    STRI^JG    FOR    HEADING    FOR    PEAK    PRI^JTOUT 


♦  4670 

4670 

0012  PRI\]T2, 

0012 

467  1 

0012 

0012 

4672 

4040 

4  040 

4673 

4024 

4024 

4  67  4 

17  24 

1724 

4675 

01  14 

01  14 

4676 

4020 

4020 

4677 

0501 

0501 

4700 

1340 

1343 

4701 

1505 

1505 

4702 

2410 

2410 

4703 

1734 

1704 

4704 

4040 

4  04  0 

4705 

4340 

4040 

4706 

4343 

4040 

4707 

4040 

4040 

4710 

4040 

4040 

471  1 

4027 

4027 

4712 

0123 

0123 

4713 

2317 

2317 

4714 

1647 

1647 

4715 

2340 

2340 

4716 

1505 

1505 

4717 

2410 

2410 

4720 

17  04 

1704 

/L.  F.     TV,  ICE 

/"  TOTAL    PEAK    METHOD 

/"  VASSOvJ  'S    METHOD" 
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/MESSAGE    STKIM6    FOK    HEADING 
/FOK    PEAK    PhlMTOUT    CCOMT. ) 


4721 

0315 

0315 

4722 

3312 

0012 

-£1723 

4014 

4014 

A724 

0  53  6 

0506 

4725 

2443 

2443 

4726 

4043 

4040 

4727 

1531 

153  1 

4730 

3340 

3043 

4731 

2211 

22  1  1 

47  32 

07  13 

0713 

4733 

2443 

2440 

4734 

4343 

4043 

4735 

4343 

4343 

4736 

2417 

24  17 

4737 

2431 

243  1 

4743 

1443 

1440 

4741 

4340 

4040 

4742 

4343 

4040 

4743 

2422 

2422 

4744 

0123 

0120 

4745 

4340 

4040 

4746 

4343 

4343 

4747 

4  321 

4021 

4750 

259  1 

253  1 

4751 

164  3 

1643 

4752 

4343 

4043 

4753 

4324 

40H4 

4754 

1724 

ITdA 

4755 

3114 

01  14 

4756 

4340 

4343 

4757 

4340 

4343 

47  60 

4324 

4324 

4761 

2231 

223  1 

4762 

2343 

c:34  3 

4763 

4343 

4040 

4764 

4343 

4343 

4765 

2125 

2125 

4766 

0116 

01  16 

4767 

3315 

3015 

4773 

0012 

0012 

477  1 

3331 

0331 

/C.  K. 

/L.  F. 

/••  LEFT 

VAX  hIGHT 

/"   TOTAL 

Tr.AP 

/•'   QUA^J 

TOTAL 

/••ThAP 

QUA  "J" 

/C.  h. 

/L.  F. 

/E^D    V ESS AGE 
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/LIBr.AP.Y    GE«JEhATOR    hOUriME SUBhOUTIvE    V. !  LL 

/HEAD    THhOUGH    FhE^IOUbLf    hECJhDED    HhOthAXb 
/A>1D    THEM     bTOHE    A    PKOGhA.M    WHICH     lb    CjJTAIxJED 
/IN]    UPPEh    COhE    I^    A    FJhy'AT    COMPATIPLE    *ITH 
/TKI-DATA'b    LIPr.Ar.Y    GENJEhAFOh    hO'jfI\'F.        V.HE'J 
/THE    PhOGrA.V;    *     lb    0*     TAPE    i-.  ILL    MOT    r.E«IMD    6 
/PhOGPAM    WILL    BE    bTOhED    IXMEDIATELf    J^JTJ    TAt-E. 

/I^JPUT    TAt^E    A.MD    Pr.JGnAM    «  '  b 


♦  4030 

4000 

0900  LIBGEv], 

333  3 

A001 

7  300 

CLL 

CLA 

4032 

1367 

TAD 

MAG12 

4033 

4533 

JMb 

I  TYPbT 

4034 

4521 

JMb 

I   blCJNj 

403  5 

7450 

Ij.M  A 

4336 

5263 

JMP 

DWhITE 

4037 

3371 

DCA 

PhOGsIO 

4010 

1366 

TAD 

MAG  1  1 

401  1 

4533 

JVib 

I  Ti'P^T 

40  12 

4521 

JMb 

I  blCO-J 

4013 

7041 

CIA 

4314 

3371 

DCA 

TAPEv! 

4315 

7  107 

CLL 

I  AC  hlL 

4316 

1071 

TAD 

TAPPg 

4017 

77  10 

SPA 

CLA 

4020 

5231 

JMP 

LIPGEM+1 

/••prOGnAM    =    " 


/RESET    TAPE    PAKAMETFhS? 
/MD,     STOPE    Pr.JG.     IN^MED. 

/•TAPE    *     =    " 


/C  +  4) 

/MAKE  SUr.E  IT'b<5 

/ITS  M3T.  ASK  AGAIM 


/SET  UP  APPi.OPHIATE  XAG  TAPE  ^AKIAPLEb 


4021 

7320 

CLA 

STL 

4022 

7013  XAGTAP. 

P.  Ah 

4023 

237  1 

IbZ 

TAPENJ 

4324 

5222 

jyp 

VAGIAP 

4025 

3365 

DCA 

INJ  TAPE 

4026 

1365 

TAD 

INJTAPE 

4027 

7312 

h.Tr. 

4030 

7312 

KTR 

4031 

3373 

DCA 

OUfTAP 

4032 

1073 

TAD 

OUT  TAP 

4033 

7012 

RTK 

4034 

7312 

RTK 

4035 

307  1 

DCA 

LDPTMb 

/GENERATE  MPUT  TAPE  # 
/CBITb  8-11) 


/GEMEKATE  OUTPUT  TAr^E  4 
/CEITS  4-7) 


/GENJEhATE  LOAD  PT  MAbK 
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/bKIP  OVEh  PREUlOUSLi-  r.ECOhDED  PHJGhAViS 


-^036 

A  037 

4040 

404  1 

4042 

4043 

404*^ 

4045 

4045 

4047 

4050 

4051 

4052 

4053 

4354 

4055 

4056 

4057 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4070 

437  1 

4072 

4073 

4074 

4075 

4076 

4077 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

41  10 

411  1 

4112 

4113 

41  14 

41  15 

41  16 

41  17 


1071 

6314 

7326 

1371 

7041 

337  1 

1365 

6314 

6332 

5245 

6335 

3066 

6335 

03  65 

7650 

5245 

1066 

0076 

7650 

2371 

5244 

1065 

3016 

303  5 

621  1 

6324 

1  1  15 

3066 

3034 

1336 

7550 

5303 

1370 

7540 

5304 

2035 

5305 

1370 

3036 

1362 

3037 

1037 

1364 

4772 

1037 

7041 

3037 

1016 

703  1 

4772 


PkOG» 
KEAD. 


DWRITE, 


hEP6, 


REP7» 


Dl  , 
D2, 

D3. 


PhOG^]0 
IMTAPE 


TAD  LDPTMS 

AC^^D 

CLA  bTL  hlL 

TAD  PhOGNJO 

CIA 

DCA 

TAD 

ACXD 

ShWC 

JMP  HEAD 

RTB 

DCA  TEXPl 

LTSA 

AMD  I^JTAPE 
CLA 
READ 
TEXPl 
C3 
CLA 

PROG.\]Q 
PROG 
bTr.TM  1 
InDATA 
LSECbW 


b\JA 

iWP 

TAD 

A>JD 

SMA 

ISZ 

MP 

TAD 

DCA 

DCA 

Cur  +  10 

LTB 

TAD 

DCA 

DCA 

TAD 

SPA 

JMP 

TAD 

SMA 

JMP 


ISZ 

vJMP 
TAD 
DCA 
TAD 
DCA 
TAD 
TAD 
JM5 
TAD 
CIA 
DCA 
TAD 
I  AC 


M5 

TEMPI 

CKSUM 

\'DATPT 

S>JA 

Dl 

M7  7  7 

SZA 

D2 

LSECSW 

D3 

M7  77 

vJDATPT 

C777 

OBLCT 

OELCT 

DATAFD 

I  bWRITE 

OBLCT 

OBLCT 
IRDATA 

r  SV.RITE 


/GO  10  LOAD  PT. 

/C  +  2)  TO  ALLOi^  FOR  LOADPRb 

/I^JITIALIZE  PROG.  COu^TK.r. 


/bTART  READINJG  A  PROGRAM 

/IMITIATE  READ  ACTIO>J 

/IS  READ  WORD  FLAG  SEX.' 

/>J0 

/YES,  READ  A  WORD 

/STORE  LAST  '.-.ORD  READ 

/IS  READ  ^.EADY  FLAG  SET? 


/nJO.  i-.FAD  A^OrHER  WORD 
/YES,  ENJD  Oi-     PROGRAM? 


/YES.  LAST  PROGRAM? 

/>iO,     READ    A\]  OTHER    PROGRAM 

/(STAi.TlAJG    ADD.'-.ESS- n 

/CLEAR  LAST  SFCTIO^J  SWITCH 


/RESET  Wr.ITE 
/SET  COU.>JTER 
/BLOCKS  IM  A 
/CLEAr.  CHECK 
/C#  DATA  PTS 
/4030(8)  DATA 
/YES 
/M0»  ARE  THERE 


FLAG 

JO    LIMIT  *■ 
SECTION  TO  5 
SUM 

LEFT  ig  PROG. ) 
PTS  LEFT? 


7  7  7(B)? 


/YES 
/nIO» 


SET  LAbT  SECTIO'vJ  Si-,  ITCH 


/(#  DATA  PTS  INJ  FLOCK) 
/RECALC.  *  DATA  PTS  LEFT 
/SET  UP  OUTPUT  BLOCK  COCMT 

/WRI IE    BLOCK    COUMT     S 
/FIELD    I\I     THE    FIr.ST    WORD 
/OF    THE    SECTION) 

/InJitialize  output  COUnJTER 


/WRITE  DATA  OUTPUT 
/ADDRESS  IvJ  THE  2^JD 
/WORD  OF  THE  SECTIOM 
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PAGE 
412D 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4130 
4131 
4  132 
4133 
4134 
4135 
4136 
4137 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4150 
4151 
4152 
4153 
4  154 
4155 
4156 
4157 
4160 


0047 
1416 
4772 
2037 
5320 
2066 
7410 
5332 
1035 
7653 
5273 
6201 
1034 
1361 
7041 
3066 
1066 
0076 
4772 
1361 
47  72 
1066 
0363 
3066 
1035 
7650 
7001 
1066 
4772 
4773 
1035 
7650 
5266 
5600 


WhTDATt 


E?JDSEC. 


TAD 
J^S 
ISZ 

ISZ 

SKP 
J>5P 
TAD 
S^JA 
J>!P 
CDF 
TAD 
TAD 
CIA 
DCA 
TAD 
A>JD 

jy.s 

TAD 
JXb 
TAD 
AMD 
DCA 
TAD 
S>JA 
I  AC 
TAD 
JMS 
JMS 
TAD 
SMA 
JMP 
JMP 


I  IhDATA 
I  Sv.hlTE 
OPLCT 
WKTDAT 

TF.ypi 

ENJDSEC 
LSECSW 
CLA 

hEP7 

CKbU-< 
C200 

TEXPl 

T  E.yi  P  1 

C3 

I  bl'.hlTE 

C200 

I  SV.hITE 

TE^Pl 

C7  7  74 

TEMPI 

LSECbw 

CLA 

TEMPI 

I  SV.nlTE 

I  SUhSTP 

LSFCbW 

CLA 

hEP6 

I  LIPGEM 


/Wh.ITE    A    DATA    ItJhD 

/FINISHED  PL3CK? 

/MO 

/YES,  FT  N]  I  SHED  A  SFCTIJ-.'.' 


/YES 

/^O.  LAST 


SFCTIOM  FIJI S-"D? 


/MO.  KEPEAr 
/YES,  E.MD  A  SECTION] 
/LAST  3  f*OhDS  OF  SFCTIOM 
/ARE  COMFUSIMG.    IST  OJE 
/COMTAIMS  COMTKOL  ThAMSFEh 
/FIELD  #  S  LAST  2  BITS 
/OF  CHECK  SUM.   i^MD  OM  E 
/HAS  COMThOL  ThAMSFEh 
/ADDhESS.    3hD  OM E  HAS 
/IST  10  BUS  OF  CHECK 
/SUM  S  LAST  2  BITS  AhE 
/LAST  SECTION  SV.  ITCH 
/(00  IF  LAST  SECTIO>J). 

/LAST  SECTIOM? 

/NJO.  INDICATE  MOhE  TO  COME 
/YES 

/PUT  A  UhlTE  STOP  OM  TAPE 
/LAST  SECIIOM? 

/MO.  REPEAT 
/YES.  EXIT 


/VARIABLES 


4161 

0200 

C230, 

200 

4162 

0777 

C777. 

777 

4163 

7774 

C  7  7  7  4  . 

7  7  74 

4  164 

1000 

DATAFD, 

1000 

4165 

0000 

IMTA-E, 

•v 

4166 

4304 

MAGI  1. 

MGTP2 

4167 

4274 

MAG  12. 

MGTPl 

4170 

7001 

M777. 

-777 

4171 

0000 

PhOGMO, 

0 

4172 

4240 

SWHITE, 

WHITE 

4173 

4265 

S'vvRSTP, 

IvRSTOP 
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/ROUTIME    TO    SET    UP    STAhTlNJG    DATA   LJCATIJNJ 
/AMD    #    DATA    WOhDS    I.NJ     THE    Piv3GhAJ>]    FOh 
/THE   LIBhARY    GF^NJEhATOh    SUBRJUTIME 


/"STARTIMG    CHANJM^L    = 


♦  4200 

4203 

7300 

SETUP, 

CLL 

CLA 

4201 

1231 

TAD 

MAG14 

4202 

4533 

JMS 

I  TYPST 

4203 

4521 

JMS 

I  SICONJ 

4204 

7510 

SPA 

4235 

5233 

JMP 

MAGEhR 

4206 

7  104 

CLL 

PAL 

4207 

1  1  14 

TAD 

Ml 

4210 

3065 

DCA 

STP.TMl 

421  1 

1232 

TAD 

MAG  15 

4212 

4533 

JMS 

I  TYPST 

4213 

4521 

JMS 

I  SICOM 

4214 

7510 

SPA 

4215 

5233 

JMP 

MAGEhh 

4216 

7104 

CLL 

i.AL 

4217 

7301 

lAC 

4220 

3227 

DCA 

CLAST 

4221 

1365 

TAD 

SThTMl 

4222 

7041 

CIA 

4223 

1227 

TAD 

CLAST 

4224 

3036 

DCA 

NJDATPT 

4225 

4630 

JMS 

I  LB  GEM 

4226 

7402 

HLT 

4227 

0000 

CLA5T, 

0 

4230 

4030 

LEGEM  , 

400C 

1 

4231 

4325 

XAG14, 

MGTP4 

4232 

4343 

MAG  15. 

MGT.^- 

'5 

/ERHOH 

MESSAGE  FOh  1 

4233 

7300 

MAGEhH, 

CLL 

CLA 

4234 

1237 

TAD 

MAG  16 

4235 

4533 

JMS 

I  TYPST 

4236 

5200 

JMP 

SETUP 

4237 

4356 

MAG  16, 

MGTt- 

6 

/LESS    THAM    2  047C10)? 
/MO,     ThY    AGAIM 


/"FIMAL    CHAnJMEL    =    " 

/LESS    THAM     204 7 ( Ij) ? 
/MO,     ThY    AGAIM 

/IMCl-.EMLMT    FOi.    H.O.     ^Oi.D 

/CALC.     *     DATA    'i^.OP.DS 


EXCESSIVELY    LAr.GE    CHAMMEL    * 


/•TOO    LARGE,     START    OK/F.t." 
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/bUBhOUTIME    10    Wi-.ITE    A    DATA    WOhD    OnJ    XAG    TAPE 


42^0  3000  WHITE*   0000 


42A1 

3257 

DC  A  v;ahD 

^2^'d 

1070 

TAD  OUTTAP 

42-^3 

6314 

ACMD 

424-4 

6321 

SV.V.C 

4245 

5243 

JMF.-2 

4246 

6305 

LTbA 

4247 

0071 

AMD  LDFTMS 

4250 

7640 

SZA  CLA 

4251 

5260 

jvp  LDPTXG 

4252 

1257 

TAD  WOKD 

4253 

6324 

LTP 

4254 

1034 

TAD  CKSUM 

4255 

3034 

DCA  CKSUM 

4256 

5640 

JMP  I  l..hITE 

4257 

0000 

WORD,    0 

/WHITE  EhROH  MESSAGE 

4260 

6201 

LDPTMG,  CDF 

4261 

li-.64 

TAD  MAG  13 

4262 

4533 

JMS  I  TY-PbT 

4263 

7402 

HLT 

4264 

4313 

MAG  13,   XGTP3 
/hOUTI^JE  rO  PUT  A  Uh 

4265 

0000 

WHSTOp,  3030 

4266 

6321 

SWWC 

4267 

5266 

JMP.  -  1 

4270 

6312 

WSPC 

427  I 

6321 

SWWC 

4272 

527  1 

JMP.  -  1 

4273 

5665 

JMP  I  whsrop 

/SAVE  THE  DATA  VDHD 

/AC  r  I  VAT  E  'v.  KITE 

/I F    MECFSSAKY 

/SKIP    VHEvI     '.vhlTE    v-0hD 

/FLAG    IS    SET 

/CHECK  TAPE  UN3 1 T  STATUS 

/AT  LOAD  POJNJT.' 

/YES,  PHIMT  EHROH  MESSAGE 
/^JO,  V.nl  fE  UOhD 

/UPDATE  CHECK  -SUM 

/EXIT 

VHE\'  TAPE  IS  AT  LOAD  POIMT 

/"AT  LOAD  POINJT" 


STOP  O^J  TAPE 


/SKIP  VHE.g  UhlTE  WOHD 

/FLAG  IS  SET 

/IvJIT.     UMTE    STOP    ACTION 

/SKIP  WHE^J  WRITE  WOHD 

/FLAG  IS  SET 

/EXIT 
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/MESSAGE  SThlVGS 

^274 

0015 

MGTPl. 

0315 

4275 

3012 

0312 

4276 

2022 

2322 

4277 

1737 

1737 

4303 

2231 

2201 

4301 

1540 

1540 

4302 

7543 

7540 

4303 

0001 

0001 

4304 

4340 

MGTP2, 

4343 

4305 

240  1 

2431 

4306 

2305 

2305 

4337 

4043 

4343 

4310 

4375 

4075 

4311 

4300 

4000 

4312 

0100 

0133 

4313 

0315 

MGTP3, 

0015 

4314 

0012 

0012 

4315 

3124 

0124 

4316 

40  14 

4014 

4317 

1701 

1731 

4323 

0440 

344  3 

4321 

2017 

2017 

4322 

1  1  16 

1116 

4323 

2441 

244  1 

4324 

0001 

0001 

4325 

0015 

MGTP4. 

0315 

4326 

0012 

0312 

43ii7 

0012 

0012 

4330 

2324 

2324 

4331 

0122 

J122 

4332 

241  1 

24  1  1 

4333 

1637 

1637 

4334 

4303 

4033 

4335 

1001 

1001 

4336 

1616 

1616 

4337 

0514 

0514 

4340 

4375 

4075 

4341 

4330 

4003 

4342 

0103 

0103 

FOR    LI3hARY    GEMEhATOH 

/C.R. 
/L.  F. 

/"Pf-.OGHAM    =    " 


/E>JD    MESSAGE 
/"       TAPE    *    =     •' 


/EMD    XF.SSAGE 

/C.  h. 
/L.  F. 

/••A  I     LOAD    PJI\IT!" 


/FJD    MESSAGE 

/C.  h. 

/L.  F.     TV.  ICE 

/"STAr.TIxIG    CHANJ^JFL    =     " 


/F^JD  MESSAGE 


PAGE 

0051 

A3^3 

3315  VGTP5. 

3315 

4344 

0012 

0012 

A345 

0611 

061  1 

4346 

1601 

1601 

4347 

144  3 

1443 

4353 

0310 

0313 

4351 

01  16 

0116 

4352 

1635 

lb35 

4353 

1440 

144  0 

4354 

7  54  3 

7540 

4355 

0301 

0001 

4356 

00  15  v,GTP6» 

0015 

4357 

0012 

0312 

4360 

0312 

3812 

4361 

2417 

2417 

436ft 

1740 

1740 

4363 

1401 

1401 

4364 

8807 

2207 

4365 

0554 

0554 

4366 

4023 

4023 

4367 

243  1 

240  1 

4373 

2224 

2224 

437  1 

4317 

4017 

4372 

2605 

2635 

4373 

2233 

2200 

4374 

0100 

0100 
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/C.H. 
/L.  'f. 
/"FINIAL    CHAM-NlF.L    = 


/ENJD    MESSAGE 

/C.H. 

/L.  F.     TWICE 

/'•TOO    LAhGF,     STAhT    JUEh" 


/EMD    MESSAGE 
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/PR0GRA>1    TO    SEARCH    F3h    PEAKS    I>J    A 
/SPECThUM    A\'D    DETEf.XIME    THE    #, 
/.YAXIXUX*     A^JD    EOU^DhlES    USI^JG    A 
/■VOUIMG    POINJT    DIFFFhE^TIAL.        THIS 
/SEAKCH    USES    A    >!I\iI>:U-<1    SE.hlES    OF 
/POS.     !^    >JE6.     DEh.  'b    AS    Cr.ITEhlA. 


/IM1TIALI7.ATI0M  OF  \iC 

>RIABLES 

+  4400 

A40O 

7300 

PKShCH, 

CLL 

CLA 

4/J01 

1311 

TAD 

CHALT 

/SET  PEAK  PhIM 

^i-^oa 

37  12 

DCA 

I  CHAMG5 

4^33 

3335 

DCA 

NJ  PEAKS 

443/4 

3037 

DCA 

Xij^IGHT 

440  5 

1  124 

TAD 

STAhT 

443  6 

3036 

DCA 

PEAKST 

4407 

1336 

TAD 

PEAKST 

4410 

3012 

DCA 

IRPK 

441  1 

1  125 

TAD 

STHTCH 

4412 

3034 

DCA 

COUnJT 

44  13 

7340 

CXA 

/SET  CHECK  FOI 

44  14 

3333 

DCA 

/IM  A  SEhlES 

44  15 

1314 

TAD 

XNJUM 

4416 

3315 

DCA 

MUMBEh 

FIRST 


/KOUTIME    TO    SEAnCH    FOR    A    MINJIMUM 
/SERIES    OF    POSITIVE    MUMBERS 


4417 

4532  SEARCH, 

JMS 

I  DIFF 

4420 

7710 

SPA 

CLA 

4421 

5213 

J>5P 

SEARCH 

4422 

2313 

ISZ 

CHECK 

4423 

52  c;  6 

JMP. 

.+3 

4424 

1334 

TAD 

COU>JT 

4425 

3065 

DCA 

LEFT 

4426 

2315 

ISZ 

.MUMBEn 

4427 

5217 

JMP 

SEARCH 

/GET    DIFFERENJTI  AL 
/IS     IT    POSITIVE? 

/NJO 

/YESf     FIRST     INJ     SERIES? 

/MO 

/YES.  SAVE  LEFT  BOUnIDRY 

/MIM  POS  SERIES  COMPLETED? 
/^J0 
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/PEAK  DETECT I OM  ROUT  I  ME 


4430  4502  PKDET,  JMS  I  DIFF  /YES, GET  DI  FFFi-;F:^  TI AL 

4431  7700  SMA  CLA  /IS  IT  ^JEGATIVE? 

4432  5230  J>!P. -2  /NJQ 

4433  1034  TAD  CDU^JT  /YES,  STOKE  PEAK  MAX 

4434  3066  DCA  MAX 

/DETECT I OM    OF    VALID    hIGHT    BOU\JDAhY 

/RESET    SEf.IES    INJDEX    FJiv    MEG 
/IMChFME^JT    FOR    LAST    DATA 

/GET    DIFFERENJTIAL 
/POSITIVE    YET? 
/YES,     RLN    CHECKS 
/>J0 


FOR    VALID    PEAKS 

/VIM  I MUM    MEG    SERIES 

/COMPLETED? 

/^O,     REJECT 

/YES,  SAVE  RIGHT  DOU^JDARr 

/SET  GMOISE  TO  FIMD  1*J0ISE 


/CALC.  STATISTICAL  MOISE 
/VALID  PEAK? 
/YES,  STOr.E  BOUNDARIES 
/^O,  SAVE  POSSIBLE 
/LEFT  EOUMDARY 

/IMCREMEMT  FOR  LAST  DATA 
/BEGIM  SEARCH  FOR  M EU  PEAK 


4435 

1314 

RTBMDY, 

TAD 

MMUM 

4436 

7001 

lAC 

4437 

3315 

DCA 

.M  UMBER 

4440 

4502 

JMS 

I  DIFF 

4441 

7700 

SMA 

CLA 

4442 

5246 

JMP 

DOME 

4443 

2315 

ISZ 

MU■^;BER 

4444 

5240 

JMP. 

.-4 

4445 

5240 

JMP. 

.  -5 

/ROUTIME  TO 

VERIFY  F 

4446 

1315 

DOME, 

TAD 

MUMPER 

4447 

7710 

SPA 

CLA 

4453 

5261 

JMP 

MEXTPK 

4451 

1034 

TAD 

COUMT 

4452 

3067 

DCA 

RIGHT 

4453 

1073 

TAD 

CI 

4454 

4506 

JMS 

I  FLOAT 

4455 

0031 

FPTEMP 

4456 

4511 

JMS 

I  GMOISE 

4457 

4516 

JMS 

I  PKTEST 

4460 

4526 

JMS 

I  STORPK 

4461 

1034 

MEXTPX, 

TAD 

COUMT 

4462 

3065 

DCA 

LEFT 

4463 

3313 

DCA 

CHECK 

4464 

7001 

I  AC 

4465 

52  15 

JMP 

SEARCH-2 

V 
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/SUPKOUTIVE    TO    DErEhvUviF    BOLNDAhlES    FOR 
/CALCULAi  IO>J    OF    hA.VJDOM    STAilSTICAL    vJOlSE 


4466    0303    MaMOIS*    0000 


44  67 

1334 

TAD 

COUMT 

4470 

3316 

DCA 

SAiJE 

447  1 

1065 

TAD 

LEFT 

4472 

1  1  13 

TAD 

MSPEGF 

4473 

3034 

DCA 

COU.MT 

4474 

1034 

TAD 

COUNJT 

4475 

7  113 

CLL 

hAh 

4476 

1037 

TAD 

MhlGHT 

4477 

7700 

5MA 

CLA 

4500 

4503 

vJXS 

I  D:s!OISE 

4501 

4437 

JMS 

I  FP 

4502 

5002 

FGEl 

■  FPD 

4503 

3331 

FMPY 

•  fptp:mp 

4504 

6026 

FPU! 

"  FPC 

4505 

0300 

FEXl 

4506 

1316 

TAD 

SAVE 

4507 

3334 

DCA 

COllNJT 

4510 

5666 

jyp 

I   NJi-.vJOIS 

/SAVE    PhESE>JT    LJC    COLNTEh 

/MOVE    BACK    SPECIFIED 

/*    OF    LOCATIONS 

/RESET    LOCAlIJ-vJ     COU.NJTEh 


/AhE    tE    BELOU'    LAST 
/RIGHT    EOLNDAhr? 
/MO,     DETEKMINJE    .\JEV    MOISE 
/rES.     USE   LAST    MOISE    VALUE 
/hETAIM    ACTUAL    MOISE 
/VALUE    IM    PEnMAMEMT 
/STOf-.AGE    (FPD),     PUT 
/FPTEMP+MOISE    IM    FPC 
/KESTOHE    LOCATIOM    COU>JTEF. 

/Exn 


/VAhlAPLES 


4511 

7402 

CHALT, 

HLT 

4512 

2230 

CHAMG5, 

CHOICE 

4513 

0300 

CHECK, 

0 

4514 

7776 

XM  UM , 

-2 

4515 

0333 

MUX 5 Eh, 

0 

4516 

0000 

SAVE, 

0 

/LOCATIOM  OF  PhlMTOUT  EXIT 
/«IM.  #  POS.  Oh  MEG.  DEm.  'S 
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/HOUTTJE    TO    FLOAT    S    ST3.-.E    SPE.CThAL 
/DATA    INJ     F\JF*    LJCATIOMS    FOh    PEAK 
/FITTI.NJG    USIvJG    FDCAL    PhOGHAyMlNJG 


4600 
4601 
4602 
4603 
4604 
4635 
4606 
4607 
4610 
461  1 
4612 
4613 
4614 
4615 
4616 


7343 
1264 
3015 
1265 
4533 
4521 
7  104 
3033 
1266 
4533 
4521 
7105 
7041 
1033 
303  1 


KELCTE» 


♦  4600 

CLL  CLA 


TAD 
DCA 
TAD 
JM5 
JMS 
CLL 
DCA 
TAD 

jyis 

JMS 
CLL 
CIA 
TAD 
DCA 


FME 
Ihl 
XAG 
I  T 
I  b 
hAL 
LFT 
MAG 
I  T 
I  S 
I  AC 

LFT 
CnJT 


CM  A 

5 
17 

YP5T 
ICO\J 

BDtT 

Id 
ypbT 

ICONJ 

hAL 

PDY 


/"bTAhTlNJG    CHAM.MF.L    = 


/•■FI'JAL    CHAM.NJEL    =" 


Eh 


/RELOCATE  BLOCK  OF  DATA  TO  EEGi:^  AT  LOCATION  0 


4617 

7  340  M0UE3. 

CLL  CLA  CMA 

4629 

3312 

DCA  Ihl2 

4621 

7140 

CLL  CXA 

4622 

1033 

TAD  LFTBDY 

4623 

3010 

DCA  Ik  10 

4624 

1031 

TAD  OJTEi'i 

4625 

3332 

DCA  L0C32 

4626 

6211 

CDF+10 

4627 

1410 

TAD  I  I  hi  3 

/GET  DATA 

4630 

3412 

DCA  I  Ihl 2 

/h-ELOCATE 

IT 

4631 

2332 

ISZ  L0C32 

/FDJIbHED 

ALL 

4632 

5227 

JXP.  -3 

/MO 

4633 

7340 

CLL  CLA  CXA 

/YES 

4634 

3312 

DCA  Ihl 2 

DATA? 
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4635 
A636 
4637 

4640 
4641 
4  64  2 
4643 
4644 
4645 
4646 
4647 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4663 
4661 
4662 
4663 


1412 
3346 
1412 
3345 
620  1 
1375 
3044 
4504 
6211 
1344 
3415 
1045 
34  15 
1046 
34  15 
34  15 
3415 
3415 
2031 
2031 
5235 
6201 
5512 


/FLOAT  DATA  S  STOhE  IM  THE  EVEN!  FMEW 
/LOCATION!*  EEGINJ>3I.MG  WITH  F^EWC158) 


VUF>JEW» 


TAD 

DCA 

TAD 

DCA 

CDF 

TAD 

DCA 

JWS 

CDF+ 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

DCA 

DCA 

DCA 

ISZ 

ISZ 

JMP 

CDF 

JXP 


I  I  h  1 2 

46 

I  Inl2 

45 

C27 

44 

I  DvJOhM 

10 

44 

I  I  r.  1  5 

45 

I  I  h  1  5 

46 

I  Ihl5 

I  I  h  1  5 

I  IK15 

I  I  K  1  5 

CNJ  T  Et. 

C>J  T  Eh 

>5UF^EW 

I  XAGTPE 


/PUT  DATA  I^  FCAC) 


/SET  EXP.  TO  23C10) 

/MOKMALIZE    l-CAC) 

/STOhE    F.  P.     DATA    I  >J     FnJ  EV, 


/SET    ODD    FME'/  '  S    TO    0 


/FINISHED    ALL    DATA? 

/\]0 

/YES 

/STOhE    OM    XiAG.     TAPE 


/VARIABLES 


4664 

3710 

F^J  EW  , 

3710 

4665 

4325 

y'AG17, 

MGTP4 

4666 

4343 

>;AG18. 

>iGTP5 
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ADC  0ii00 

ADC4  05A4 

CCFP  37  65 

CHALl  -^511 

CHANJG^  cil57 

CHLT  036i^ 

CLAST  ^£27 

CM  In  1664 

COUNJTl  1701 

C0001  1662 

CI  0073 

C8'!l0  0670 

C5  036A 

C7774  4163 

DIFF  0102 

DNJOISE  0103 

DTPKPK  2450 

Dl  4103 

F.NJDbTG  3314 

FETCH  1403 

FlhST  1431 

FLOC  166b 

FPB  0023 

FPbThi  37  67 

GET  0110 

6M0ISE  0111 

HEDEhl  1150 

HFDEr.5  07  70 

INJDEX  0036 

IMPUr  0005 

IhGET  00  10 

IhSTOK  00  14 

IR15  0015 

LPGEM  42  30 

LEVEL  1221 

LIMDEX  0066 

L0C33  0033 

L0C37  0037 

LOC70  0070 

LSECb'.^'  0035 

XAGFPE  0112 

MAG12  4167 

VAGI  6  4237 

yAQ2  0  37  0 

yAG4  04  56 

MAG^  2  3  50 

yGTP2  4334 

MGTP6  4356 

MM  UM  4  5  14 

ypTSPl  0037 

y.  1  0  114 


ADCl  0474 
ADC5  3557 
AvH,i.AG  3337 
CEMD  0357 
CHAMGl  1644 
CHA\'G5  4512 
CHOICE  2230 
CMbTPT  0052 
CJLECT  0227 
C0LW1'2  1702 
C0212  1142 
CI  00  0  667 
C27  007  5 
C6561  lb63 
DATAhD  4164 
DIrl  2264 
D\I0.-.y  0104 
DTPKl  24  61 
D2  4  104 
Er.KOr.  14  37 
FFIX  24  7  1 
FIX  0105 
FMEv.  4  664 
r  I'  0  0  J  2  6 
FPTEyp  00  31 
GETDAI  0033 
HUi.GET  04  14 
HEDE.-.2  1164 
HIGH  14  64 
I\'DX  0037 
IMTAPE  4165 
n.L0C  00  11 
I/-.  10  00  10 
K77  0665 
LDPiyG  4260 
LFIBDr  0033 
LIME  0037 
L0C34  0034 
L0C65  0065 
LOG  7  1  007  1 
yAGDbH  0366 
yAGl  0367 
yAG13  4264 
VAGI  7  4  665 
1VAG20  3367 
yAG6  1466 
yAA  0066 
yGTP3  4313 
yiMLET  2414 
MODIFY  0673 
MhlGHT  00  3  7 
M27     2532 


ADC2  0505 

ADPMTh  0017 

BOU\:Db  14  11 

CrP  2550 

CHAMG2  1647 

CHECK  4513 

CJyP  2  156 

C^JT  0034 

COypAi.  2  105 

CSIAhl  3365 

C02  15  1143 

C13  0074 

C3  0076 

C7  0100 

DELAf  167  1 

DIF2  2265 

DJvJE  444  6 

DTPK2  24  62 

D3  4105 

EX I r  lo60 

FhLOAr  2333 

FLAG  0664 

FP  0007 

FPD  0002 

FP2  3770 

GhfPK  3606 

HEADE.ii  0  365 

HEDfc>.3  07  60 

IDbPLir  1652 

IMIIAL  0423 

IvIfhUP  0  135 

IhPK  0012 

Ii:ll  0011 

LAST  14  32 

LDPTMb  007 1 

LFTDET  20  13 

LOG 3  1  00  3  1 

LJC35  0035 

L0C66  0066 

LOOP  36  54 

vAGEr.r.  42  53 

yA610  235  1 

XAG14  4231 

XAGld  4666 

yAG2  1  337  0 

yAG7  14  67 

yAXDET  2422 

yGTP4  ^^3^5 

y  I  ^1  i'.\!  D  2  10  7 

yOVF:-)  46  17 

XbP^CF  0113 

M4  337  1 


AijC3  0530 

AhEA  0072 

CALG  3627 

CFPX  5264 

CHAMG3  1656 

CHXPKb  0101 

CKbUX  00  34 

CMTEh  0031 

COUMT  0034 

CTh  0363 

C0240  1144 

C200  4161 

C4  007  7 

C7  7  7  4  162 

DIF  22  51 

DIUISh  2531 

DbpLY  164  1 

Dt,iaTE  4063 

EMDbEC  4  132 

FDIFF  244  3 

FIMAL  003  5 

FLOAT  0  106 

FPA  0020 

FPSTOh  0107 

FbTJhE  3357 

GGEr  23  10 

HEDEh  0434 

HEDEh4  0  7  66 

IMCyslT  1433 

IMPTCb  3226 

n.DATA  00  16 

IhPUr  0013 

Inl2  0012 

LAbTi-'G  0351 

LFF:  0065 

LIBGEn!  4000 

L0C32  0052 

L0C36  0036 

L0C67  0067 

L0V,  14  65 

XAGTAP  4022 

yAGll  4  166 

KAG15  4c:!32 

yAGl:^  5366 

yAG3  0455 

yAG8  1470 

yGTPl  4  2  74 

MGTPS  4343 

MIMHT  2  160 

yPKhT  3775 

yifFMKU  4635 

y40  0656 
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M5 

01  15 

M68 

0372 

V777 

4  170 

\J 

2161 

'^JCH 

2162 

.NJDATPT 

0336 

ME'aXAX 

20  61 

NJEXTPK 

4461 

MLIMEb 

0065 

jgMAX 

2533 

Mxi.g 

2534 

^JOPRT 

3233 

MPEAKS 

3035 

>JP\JTS 

1666 

gpTS 

0065 

MUV 

2535 

MUMEEh 

-^515 

\'WASOM 

3773 

MWvJJIS 

4466 

OELCT 

0037 

OLDXAX 

2063 

O-'JETWO 

37  74 

Off 

1134 

OUTER 

1735 

OUTPUT 

0^36 

OUTTAP 

3073 

PAGER 

027  1 

PEAKST 

0  33  6 

PEMHGH 

1261 

PEMHI 

1253 

PExJLOw 

1247 

PEMLW 

1263 

PIMDEX 

0066 

PKAREA 

3  630 

PKCKCK 

2121 

PKDET 

4430 

PKLEFT 

3065 

PKI-iAX 

2J20 

PKXX 

0066 

PKRT 

0067 

PKSEH 

2300 

PKSRCH 

4400 

PKTEMP 

37  7  5 

PKIFST 

01  16 

PKTST 

2132 

PLOT 

1242 

P.NJT 

3776 

PPMT 

2543 

PPP.I>JT 

0276 

PR DAT A 

0312 

PRIMT 

2200 

PRIMTl 

2353 

PRINJTc; 

4670 

PROG 

4C44 

PP.3GM0 

4171 

PhT 

0440 

PRT^J  UM 

2243 

PTE.yp 

0366 

PTOMLY 

0363 

READ 

4  34  5 

REJECT 

2154 

RELCTE 

4630 

RELOC 

32  7  3 

REPET 

12  34 

REPETl 

1223 

REPl 

1450 

REP  2 

2515 

REP  3 

22  17 

REP'iJ 

3261 

REP6 

4066 

REP7 

4073 

RIGHT 

0067 

ROT 

1435 

ROTAT 

1443 

ROTATE 

1403 

ROTDNJ 

1246 

ROTDWM 

1243 

ROTUP 

1233 

ROTl 

147  1 

ROT  2 

1504 

R0T3 

1513 

RTP'JDY 

4435 

RTDET 

233  7 

SAVE  ■ 

4516 

SAVEPK 

2070 

SBTOT 

4520 

SCDSY 

01  17 

SEARCH 

44  17 

SER 

0120 

SETUP 

4230 

SICO\] 

0121 

SIC3NJV 

1300 

SICTRL 

1332 

S I  f;\)  D 

1066 

bIHOLD 

11  12 

SI MASK 

1  102 

bl.MXMS 

1  1  10 

SIXPLS 

1107 

SIMbPC 

1  106 

Siy260 

1  104 

SIM271 

1105 

SINJEGl 

1113 

SI>JyiBR 

1046 

b  I  NJ  r  U  f 

1057 

SIPROC 

101  1 

SlhPUT 

1  103 

SI  SAVE 

1111 

S  I  S  E  i  1 

1075 

SIXS'a  1 

1024 

SKIPMA 

0671 

SKIPPA 

067  2 

SyOJiH 

0122 

SKOTK 

3200 

SXiOTHl 

4540 

SM0TH2 

4555 

SM0TH3 

4565 

SNJOISE 

2403 

SPPRMT 

0123 

SPPr.T 

2231 

SR 

0236 

SSCDSY 

1630 

s  T  i:i .  r 

01a4 

START  1 

3457 

START2 

0466 

ST  OR 

2535 

STORE 

2352 

STORPK 

0126 

STPRT 

0373 

STPT 

0400 

STnTCH 

0125 

SlRT>n 

3065 

SUBTOT 

33  7  1 

SUBTR 

2270 

SUETRA 

2113 

SUPTRC 

3127 

SUITCH 

3  6  52 

SWRITE 

4172 

SWnSTP 

4  17  3 

TAP  EN) 

3071 

TEMPI 

0366 

TEXQ 

0662 

TEXR 

0663 

TEk 

0133 

TEST 

3131 

TOTAL 

3644 

TR 

0253 

TSCCl 

0633 

TSCC2 

0614 

TTYCr. 

1  120 

TTYSP 

1  127 

TYCR 

3132 

TYPAT 

0625 

TYPE 

0653 

TYPSP 

0631 

TYPST 

0133 

TYPSTG 

0  603 

TYSP 

0134 

VJMP 

1667 

U.NJOP 

1673 

WASSOvJ 

3736 

WORD 

4257 

WRITE 

4240 

WRSTOP 

4ii65 

Wr.TDAT 

4120 

ZERO 

2505 

APPENDIX  II 
FOCAL  PROGRAMS 
All  computer  programs  listed  in  this  appendix  were  run  on  an  8K 
Digital  Equipment  Corporation  PDP-8/L  computer  with  a  Model  ASR  53 
Teletype  input  and  output.   All  programs  were  written  in  FOCAL  (FOrmula 
CALculator)  conversational  language.   The  following  new  functions 
were  user  defined:   common  storage  functions  FNEW(1, ...... .)  and 

FNEW(2, ),  and  integer  scaling  function  FNEW(5, .,.,...) ,  and 

an  oscilloscope  display  function  FNEW(lt,  .,.,...)  . 
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Program  1 
Photopeak  Fitting  Routine 
This  program  performs  the  nonlinear  least  squares  iterative  fit 
of  an  eight  parameter  function,  described  in  the  theory  section,  to 
the  digital  data  stored  in  the  even  FN'EW  locations,  beginning  with 
FNEW(150) .   The  original  parameter  estimates,  the  value  of  the  incre- 
ment, the  number  of  points  in  the  fit,  and  the  initial  abscissa  value 
are  input  through  the  Teletype.   New  values  of  the  parameter  estimates, 
the  residual  sura  of  squares,  and  the  raw  and  fitted  sums  are  printed 
following  each  iteration. 

PS  =  number  of  parameters 
C(V)  =  parameter  estimate 

IN  =  abscissa  increment,  in  sigma  units 

NP  =  number  of  points  in  the  fitting  interval 

XO  =  initial  abscissa  value,  in  sigma  units 
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C-8K    FOCAL    §l3i6;> 


01.01 
01.02 
01.03 
01.0-a 
01.05 
01.07 
01.  10 
01.  15 
01 


01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01.75 

01.  80 

01.  85 

01.93 

01.S<5 


23 
2  5 
30 
35 
40 
A5 
50 
55 
60 
65 
70 


E 
T 
F 
A 
F 
T 

S 

c 

s 

s 

b 

s 
s 

s 
s 
s 
s 
s 
b 
b 

b 


%8.0 
v=l  , 
?Pb? 
V=l. 

!;a 

1  =  0; 

bl=C 
b3  =  C 
S5=F 
Q1  =  F 
Q2=. 
Q3=C 
D(  I  ) 
Y=C( 
b8  =  C 
U=U  + 
D(3) 
D(2) 
D(A) 
D(5) 
D(6) 
DC7) 
D(8) 


5o;b 

!  ! 

s;  A 

INJ?, 

X=  X 
2)*( 
&)-X 
XPCb 
aPC- 
*(  1- 
6)*F 
G  l  +  Q 
)*D( 
1  )*Q 

;  s  7. 

2*SS 
D(3) 
2*C( 
b2*D 
b^/C 
-bv^^ 
D(7) 


Z:  =  FMEWC1  ,\/,0) 


?C( 

?MP 

o;s 
x-c 
;b 
1 ); 

(b5 

FXP 
2*Q 
1  ) 

3;s 

=  F>J 
*C( 

*  ( ( 
1 )  + 

CA) 
C6) 

*C( 


^)?.  ! 

? , ?X0? ,  ! 

U=75;S    bM=0 
C3));i    b2= (X-CC4) )/y*C( 5) 
b4=FbQT(S3T  2) 
b    b6=FEXP(-bl);b    S7=S5+S6 
(X-CC^) )  ) 
-b6)/:^7) 
(-C(7)*(b4+b3) ) 
3 

S3»  =  b8*Q2 
EWC  1  ,2*U- 1 »y ) 
2)/b7t  2 
C(3)-X)/CC2) ) 

b2*01 


+  53) 
7)/b4 


02.40 
02.45 

02.  50 
02.  55 
02.  65 
02.90 


03. 

03. 
03. 
03. 
03. 
03. 
03. 

03. 
03. 
03. 
03. 
03. 
03. 
03. 
03. 
03. 
03. 


05 
10 
15 
23 
25 
30 
35 

40 
45 
50 
55 
63 
65 
73 
74 
78 
83 


hb  =  FNJEW(2.2*U.W)-F^EWC2,2  +  U-  1  .U);b    bM  =  SM  +  KST2 
J=l»Pb;b    ?;  =  F>JE'*(2,  J+PSt2,U  )+DC  J)*r.b;  5    7:i=FNlEt^(  I  , 
J+PbT  2.Z) 

j=  1  ,Pbi  F   K= 1 . j;d  4 

x=x+i\j;b   1  =  1  + i;  I    (I -MP)  1.15; 

!;  T   ?b>i? .  !  ;g   6.  1 

"GG";b    Z  =  F^JEW(4,  150.653) 


1 
1 

:'<=0.\];d   5 

Z=F:^EW(2,P  +  L*K+l  »  W)/M;  b    2  1  =  FMEU(  1  ,P  +  L*X  + 


IT=IT+  1 

L=Pb;  b  ^j  =  L-  i;  b   1  = 

K='df'^i^    hCK)  =  K+l 
M=lE-6 

j=Q,Nj;  F 

hCP)=3 

k=3.l; b 

1,7.) 

J=  3  » NJ  ;  D    6 

1  =  1  +  1  ;  I     (I-\J)3.2.3.5.3.2 

J=0,>];P     r.^^,:liu     7 

!!!"#    OF    ITEhAriONJi",%2,  IT 

!;F    K=3,^J;T     !     %2"X(".K+1,")       "  ,  ?;8.  05  ,  XCK  ) 

!!;f  v/=i,pb;b  C(U)=C(^)  +  xc  V- 1 );  T  C(U),! 

\;=i  ,2;d   3.  9 
V=5»7; D    3. J 
y  =  3»  5,  8;  D    3.  95 
1.03 
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03. 

.65 

G 

03. 

90 

I 

03. 

95 

I 

03. 

99 

n 

04. 

10 

S 

04. 

15 

S 

04. 

23 

s 

05. 

10 

I 

05. 

15 

I 

05. 

20 

s 

05. 

25 

s 

05. 

30 

h 

06. 

10 

I 

06. 

15 

S 

06. 

20 

F 

06. 

25 

r. 

06. 

30 

S 

07. 

10 

I 

07. 

20 

s 

08. 

10 

b 

08. 

15 

F 

08. 

20 

T 

08. 

25 

G 

0^. 

10 

S 

09. 

20 

s 

09. 

30 

h 

♦ 

1. 1 

C-CfV)  )3.  99;S    Cf  ^/)=CC(U)-X(V- 1  )  )/c;;  T    "C(".7l     \J," 
)"?tt. 05    C(V), ! 

cc(U)-cc4)  )3.  ^>;  b  C(V)  =  (Cc v)-xc\/- 1 )  )/2;  r   ••cc",>-i 

U,")"%o.  ^6    CCv)  ,  ! 


U=J+K+PS-FS 

Z  =  FM  EW  f  2  ,  V  ,  U  )  +  D  (  J  )  +  D  C  f<) 

Z1=F>]EW(  1  ,V,^) 

(H(  J)  )0,5.  3.5.  15 

(FABb(FNJEW(2,  J+K  +  L+  1  .  V,  )  )-FA&bCM)  )5.  3; 

M=F^EW  C2, J+K*L+ 1 .W ) 

p=j;s    Q=K 


( J-P)6. 15, 6. 25, 6. 15 

D=F>JEl^  (2,  J  +  L*(.+ 1  ,  W  ) 

K=o,L;i   ^=j+'<+L+i;b   ^yi  =  <j-j+p;D   6.3 

Z:=FvJEW  (2,  U,i.  )-FnJE'a(2,  VI  ,'/.')*DJ  b    Z  1  =  F.>J  EV;  (  1  ,  V  , /: ) 

(  lE-6-FABS(F>JEv,  (2,  J  +  K*L+  1  ,'0  )  )7.  2;h 
X  C  K  )  =  F \J  FW  (  2  ,  J+  L *L+  1  .  V.  ) 

r.=  0;S    S=3 

1  =  76,  (NJP-  1  )+76JD    9 

!"hAW    SUM",R;T    "  SMOOTH    SUM",S,! 

2.  9 

h  =  h+F^JEU  (2,2*1  ,W  ) 
S=5+FMEw{2,2*I- 1 ,U ) 
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Program  2 

Baseline  Fitting  Routine 

This  program  performs  the  nonlinear  least  squares  iterative  fit 

of  a  cubic  polynomial  to  up  to  five  separate  segments  of  the  digital 

data  stored  in  the  even  FNEW  locations,  beginning  with  FNEW(150) • 

The  original  parameter  estimates,  the  value  of  the  increment,  the 

number  of  points  in  the  fit,  the  initial  abscissa  value,  the  number 

of  baseline  segments,  and  the  first  and  last  channel  location  of  each 

segment  are  input  through  the  Teletype.   New  values  of  the  parameter 

estimates,  the  residual  sum  of  squares,  and  the  raw  and  fitted  sums 

are  printed  following  each  iteration. 

PS  =  number  of  parameters 

C(V)  =  parameter  estimate 

IN  =  abscissa  increment,  in  channels 

NF  =  number  of  points  in  the  fitting  interval 

XO  =  initial  abscissa  value,  in  channels 

SS  =  number  of  baseline  segments  in  the  fit 

N(J)  =  first  or  last  channel  location  of  a  baseline 
segment 


^ 
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C-8K    FOCAL    '11969 

01.01  E 

01.03    F  V=1,150;S    Z=FMEi'-Cl  ,U.0) 

01.0^    A  ?Pb? . ! ! 

01.05    F  V=1.PS;A    ?C(U)?,! 

01.07  T  !;A    ?  IM?  ,  ?NJP?  ,  ?X0?  ,  !  ! 

01.08  T  "#    SECri  J\'b"J  A    bSJ  T    "  ";F    J=  1  ,  2*  C  5b- 1  )  ;  A    ?  ^J  (  J 

)? 

01.10    S  I=0JS    X=X9;b    u=75;s    SX=3 

01.15  s  B=i;b   i'=cci);b  Dcn^^i 

01.23    F  II=2,Pb;D3    5.9 

01.60    b  U=U+i;b    Z=FMEW(  1  .2*U-1  .y  ) 

01.  65    I  C  I-\i  (  1)  )2.  '^; 
01.73    I  (I->J  (2)+l)2.  55; 
01.75    I  CI->J(3))c;.^iJ 
01.80     I  (  I-:\J  (^)+l  )2.  55; 
01.85    I  (I-M(5))y.^; 
01.90     I  CI-M (6)+l )2. 55; 
01.95    I  CI-^J  (7)  )2.'!i; 

02.05     I  CI-NJ(8)+1  )2.  55; 

02.  10     I  CI-\J  C9)  )2.  iAj 

02.  15    I  (I-M(  13)  +  1 )2. 55; 

02.40    b  Rb=F\JP:WC2,2*U.\;.  )-F\IE'a  (2,  2*U- 1  .  U);5    bM=b>!  +  t.ST  2 

02.'!i5    F  J=l,Pb;S    Z=F.\IEWC2,  J+PSf  2.W)  +  Df  J)*hb;S    Z1  =  F\JEW(1, 

J+PSf 2,Z) 

02.53    F  J=l,Pb;F    K=l,Pb;D    H 

02.55  5  x=A+i:vi;b   i  =  i  +  i;i    c  i-.\ip)  i.  15; 

02.  85    T  !;T     ?bX?  ,  !  ;G    8.  1 

02.90    T  "GG'Sb    Z=F\JEW(A,  153*  650) 

03.05    b  IT=IT+1 

03.10    b  L=Pb;b    >J=L-i;b    I  =  -l 

03.15    F  K=3..Nj;b    KCK)  =  K+1 

03.20    b  X=lE-6 

03.2  5   F  j=0,n];f  k=j,.j;d   5 

03. 30    b  hCP)=0 

03.35    F  K=0.L;5    Z  =  F>JEWC2.F  +  L*K+ 1  ,  W)/m;  S    Z1  =  F^E'vv(  1  ,P+L*K  + 

1  ,Z) 

03.40    F  j=0.m;d    6 

03.45    b  I  =  I+i;l     (I-M  )3. 2.3. 5.3. 2 

03.50   F  j=0,nj;f  k=0,nj;d   7 

03.55    T  !!!"*    OF    I TEhAT lOM b" . %2 , I T 

03.60    T  !;F    K=0,M;r     •     ?2"XC",K+ l  .")       ",  %d.  35.xc:-<) 

03.65    T  !!;F    v;=I,Pb;b    C(U)  =  C(  V)+X(  V- l  )  ;  T    CCV/),! 

03.70    I  C-Cfl))3.&;b    C(  1  )= (C( 1 )-X(3) )/2; r    "CC  1  )".C(  1  ) .  ! 

03.80    D  1. 33 

03.85    G  1.  1 

04.  10    b  V  =  J+K*PS-Pb 

04.15    5  Z  =  FMEv,  (2,U,W)  +  D(  J)*D(K) 

04.20    b  Zl  =  F>JEwC  1  ,U,Z) 
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05.  10  I     (h(J->  )0,5.  3,5.  15 

05.15  I     fFABbCRvJEWCy,  J+;-<*L+l,V;))-FABSCy)  )5.3; 

05.iia  S    M=F\}EWfg,  J+K  +  L+l.W) 

05.25  S  P=j;b  Q=K 

05.30  h 

05.93  S  B=B*x;b  Y  =  Y  +  Cf I  I  )*B; b  DCII)  =  B 

06.10  I  fJ-P)6.  15.6.  25.6.  15 

06.15  b  D=F\JE;v  (h,  J  +  L*J+1  .'a  ) 

06.20  F  K=0.LJS  U=J+K*L+i;b  Vl=U-J+PjD  6.3 

06.25  K 

06.30  b    Z=FMEV.  (2,  V.W)-FNJFW(2.  l/l  ,k  )*D;b    ?:  1  =  F>J  Fw  CI  ,  V  ,  Z  ) 

07.10  I     ClE-6-FAB5(FME'.'.(2,  J+X  +  L+1  ,;0)  )7.  2;R 

07.20  S    XCK)  =  FNJEwf2,  J+L  +  L+l.W) 

08. 10  S    R=0; S    S=0 

0b.  15  F    1  =  76. (MP-1 )  +  76JD    9 

08.20  T     !"hAW    bUM",h;T    "          SMOOTH    SUM".b.! 

08.  25  G    2.  9 


09.02    b  J=I-76 

09.05    I  <  J-NJCl  ))^.  6.: 

09.  10    I  CJ-s;  (2)+  1  )^.  7; 

09.  15     I  (  J-NJC3))^.  6; 

09.20     I  f  J-NJ  CA)+1  ):^.  ?; 

09.25     I  C  J-MC5)  )9.  6; 

09.30     I  ( J-M(6)+l)^.  7; 

09.35     I  C  J-N3C7  )  )9.  6; 

09.^4  0     I  (J-NJ(6)+1)^.7; 

09.45     I  CJ-V(y))9.6; 

09.50     I  C  J-MC10)+1  ):<.  7; 

09.60    b  R=n  +  FNJE'.v  (2,2*1  .1.;  ) 

09.65    S  b=  b+FNJEWC  2,2*1- 1  ,vv) 
0  9.70    h 
* 
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Program  5 
Calculation  of  the  Total  Fitted  Curve 
This  program  uses  the  final  parameter  estimates  from  Programs 
1  and  2  to  calculate  the  total  fitted  curve.   The  total  curve  is  ob- 
tained by  adding  the  polynomial  baseline  contribution  to  the  fitted 
peak  function.   The  calculated  values  are  stored  in  the  odd  FNEW  loca- 
tions, beginning  with  FNEW(151) .   The  program  assumes  that  the  orig- 
inal raw  data  are  stored  in  the  even  FNEW  locations,  beginning  with 
FNEW(150) .   The  residual  sum  of  squares  and  the  raw  and  fitted  suns 
are  calculated,  and  the  raw  and  fitted  spectra  are  simultaneously 
displayed  on  an  oscilloscope. 

PS  =  number  of  parameters 
C(V)  =  final  calculated  parameter  estimates 
IN  =  abscissa  increment,  in  sigma  units 
NP  =  number  of  points  in  the  fitting  interval 
XO  =  initial  abscissa  value,  in  sigma  units 
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C-8K  FOCAL  9  1^6:^ 


01 

01 

01 

01 

01 

01 

01. 

01 

01 

01. 

01 

01 

01 

01 

01. 

01 

01 


01 
02 
0-!) 

3  5 
07 
10 
15 
20 
8  5 
33 
35 

45 
53 
52 
55 
63 


18 
?P 

V  = 

! ; 

1  = 

SI 
53 
S5 
Ql 
02 
Q3 
DC 

Y  = 
JJ 
II 
0'= 


.05 
b?.  • 
1  .PS 
A  ?! 

0;  s 

=  CC2 
=  CCB 
=  FEX 
=  FEX 
=  .  5* 
=  CC6 
1  )  =  Q 
CC  1  ) 
=  1+  1 
-13. 

u+i; 


;  A    ?  C  (I'  )  ? .  ! 

■^J  ?  ,  ?-^JP?  .  ?A0?  .  ! 

x=x3;s  u=75;s  sm=0 

)  *  C  X-  C  (  3  )  ) ;  S    b 2=  (  X-  C  f  -^  )  )  / 2  >  C  C  5  ) 

)-X;S    S'^=FSQrCS3t2) 

PfSl);S    S6=FF.XP(-Sl  );  S    S7  =  S5+S6 

PC-S2*(X-C('4)  )  ) 

(  1-(S5-S6)/S7 ) 

)*FEXF(-CC7 )+  CS4  +  S3) ) 

1+G2+Q3 

+  D(  1  ) 

;s  p=i;s  Y=r  +  C(:^) 

Hs;s  B=B*jj;b   r-i'  +  ccin  +  B 

S    Z=FMEvv  (  1  f-^.*U-  1  ,Y) 


02.-^0 
02.  55 
02.  63 
02.  65 
02.70 
02.75 
02.  ^a 
02.  95 


hS=FNJEWC2.2*U.  V  ) 

x=x+i:vj;s    1  =  1 +  i;  I 


■F.\JEW(g,2  +  'J- 
(I-NJh-)  1.  15J 


i.k);s  sy.=SM  +  };ST2 


!"r.ESIDUHL 

h=a;s  s=0 

I=76,MF+75;D    3 
!"nAW    SUM". ft; T 


U>:    jF    SG'JAhES".syi,  ! 


SXJOl'H    SU"^".i.  ! 


'GG";S    ?:=FnJF'a  (A,  1  53.^^53) 


03. 

03. 
03. 


10    S 

20    S 
30    h 


h=h+FMFw'(2,2*I  .V) 
S=S+F^JFWf  2,2*1-  I  .  V  ) 
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Program  14^ 
Numerical  Integration  by  the  Trapezoid  Method 
This  program  performs  the  numerical  integration  of  the  eight 
parameter  fitting  function,  using  the  trapezoid  method  and  an  incre- 
ment of  0.1  channel.   The  final  parameter  estimates  from  Program  1, 
the  abscissa  increment  used  with  the  fitting  function,  and  the 
channel  locations  of  the  peak  boundaries  are  input  through  the  Tele- 
type.  The  integrated  area  is  printed  and  the  process  is  repeated. 
C(V)  =  final  calculated  parameter  estimates 

IF  =  abscissa  increment,  in  sigma  units, 
used  with  the  fitting  function 


C-8K    FOCAL    '3  1969 
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01.01  E 

01.  Oa  T  %8.06.  !  !  !  !  ! 

01.05  T  "PEAK"; A    PK. ! 1 

01.  37  F  V= 1 , b; A    ?C( V)? .  ! 

01.08  A  !"hIlTI>JG    iNiChEMDJ  T",  I  F 

01.10  A  !!"LEFT    BOUM DAnY" » Lbi A    " 

T    BOUMDPu.r'"..'/^ 

01.15  S  HH=3. l;b    XO=CLB-MX)*If ;b 

01.i?d  S  NJ=CCkB-LB)*IF/K)  +  l;  I     !!"* 

01.25  S  S=3;5    X=X0 

01.  30  F  1  =  1  ,NJ  +  .  -^JD    2 

01.35  5  A=S*HH/2;T     !!"AhEA",A 

01.^0  A  !  !  !"CO>JTI^JUE?",CC;  I     C20-CC)1.5; 

0  1.^5  T  !!!!•;  Q 

01.  53  T  !;G     1.1 


PEAK  v,ax",>ix;a 

.'<F=CRB-MX)  *IF;  S 
PJI\ITb"»M;T    " 


"       HIGH 

H=IF+HK 
X0"»X0 


02. 
02. 
02. 
02. 
02. 
02. 
02. 
02. 
02. 
02. 
02. 
02. 
* 


13 
15 
23 
25 
30 
35 
43 
53 
55 
63 
65 
70 


S 

S 

s 
s 
s 
s 
s 
I 
b 
b 

b 

R 


bl=C(2)*CX-CC3));b  b2={X-C(4))/(2*C(5)) 

b3  =  CCB)-X;b  b'!4=FbQTCb3t  2) 

b5=FEXPCSl ); b  b6=FEXPC-bl ); b  b7=S5+b6 

Ql  =  FEXPC-b2*CX-C(4)  )  ) 

Q2=3.5*(l-(S5-b6)/b7) 

Q3=C(6)+FEXP(-C(7  )*(b4-t-b3)  ) 

y=C( 1 )+C01+Q2*G3) 

( 1-2)2.  6;  I  (Nj-i-  1  )2.  6; 
Y=2  +  r 

b=b+-{i5    X=X  +  H;b  /,=  7_  +  HU 
W  =  'V  +  H 
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Program  5 
Linear  Least  Squares 
This  program  performs  the  least  squares  fit  of  a  straight  line 
to  a  set  of  data  points.   The  abscissa  and  ordinate  values  are  input 
through  the  Teletype.   The  program  calculates  and  prints  the  Y-inter- 
cept,  slope,  mean  square  deviation,  and  X-intercept. 
LI  =  number  of  data  points  to  be  fit 
X(J1)  =  abscissa  value,  Jl  =  1,.,.,L1 
Y(J1)  =  ordinate  value,  Jl  =  1,...,L1 


C-6K    FOCAL    Q\^6^ 
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01.06  E 

01.07  T     f!!;S    MA=2;S    ^JB  =  ii;A    LI 

01.06  F  ji  =  i,li;t    !;a  xcjD.fcjn 

01.10    T     !!!"DATA    PO I  >JT5  :".!!.  "    MJ.  X 

Y",  ! 
0  1.11     F    J1=1,L1;T    %8,J1,"  ",  %6.  06»XC  Jl  ).'• 

),  ! 

0  1.15   F  l=ma,njb;do  2 

01.17    S    XX=-(BC1)/B(2)  )  J  r    "X-INJ  TEKCEPT'.XX 
01.20    G     1.07 


.y<  ji 


02.  17  S    \J2  =  2*L-  1 

02.20  F    Jl=l.M2;b    SXCJ1)=0 

02.22  F    J1=1,L;S    YX(J1)=0 

02.25  F    J2=1,^]&;F    J1=1,L1;5    bXC  J2)  =  5XC  J2)  +  X(  Jl  )  r  (  Jg- 1  ) 

02.27  F    J2=1.L;F    Jl=l,Li;b    YX( J2)=YXC J2)+YC Jl )*CXC Jl) r ( J 

2-1  )  ) 

02.33  F    J2=1,L;F    J1=1,L;S    A( J2+J1*L)=SXC Jl+C J2-1 ) ) 

02.  35  D    15.  3 

02.78  T     !;F    K=1,L;     T     •"P(",f2,K.*')       "  .  f  6.  06»  PC  K) 

02.83  F    J1=1,L;S    YX(Jl)=a 

02.82  S    5D=3 

02.8-^  T     !!••       NJO.  Y    OBb.  Y    CALC  DFIFF.",! 

02.85  F  ji  =  i,Li;s   T'x=e;D  8.0 

02.66  b  bD=FSCTC5D/CLl-L) ) 

02.88  T  !!"VEAM  SQUARE  DEU I  ATI OM " . f 6.  36 , SD.  !  !  ;  K 

08.10  F  J2=1,L;:3  : />  YX+3  (  J2  )  *  C  XC  J  1  )  t  (  J2- 1)  ) 

08.15  5  D=YCJl)-YX;b  SD=SD+D*D 

0  8.  17  t. 

08.20  T  %2,J1,"    ",S6. 36. Y( Jl ) ,"    "»Ya,"    " , D . ! J H 

1^.05  S  NJ=K+i;  S  DD=A(M  +  I  I*L) /ACI  I  +  I  I+L) 

M.13  F  J=II»LJ  5  AC.M  +  J+L)  =  AC-J  + J*L)-ACI  1  + J*L)+DD 

14.15  s  YX(>J)=YX(:^J  )-YX{i  r  )*dd;  n 


15.05  b  MM=L-1 

15.10  F  11=1, yM;F  K=ii»yMi  d  14.3 

15.15  S  B(L)=YXCL)/A(L+L*L) 

15.20  F  y=£?,L;S    >J  =  L+1-MJS    KK=NJ  +  l;b    B(M  )  =  YX(NJ  )/ACnJ+\]*L)  ;d 

15.25 

15.21  G  15.33 

15.25  F  K  =  KK,L;     b    ECM  )=BCM  )-ACM  +  K  +  L)*E(K)/AC^J+'J*L) 

15.33  h 
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